Sebagai bahasa pemrograman Windows baru, Delphi semakin digemari oleh para programmer dan peminatnya karena banyaknya fitur unggulan yang dimilikinya. Sepuluh tips berikut ini mencakup berbagai topik dan saya harap dapat bermanfaat bagi para penggemar Delphi.
1. Mirip dengan vb. doevents berfungsi di.
Anda mungkin menemukan bahwa tidak ada yang setara dengan vb. doevents berfungsi, jadi terkadang kita tidak dapat membuat Windows merespons beberapa peristiwa secara bersamaan. Faktanya, objek aplikasi Delphi menyertakan metode serupa: PRocessMessage. ProcessMessage untuk diselesaikan seperti vb. Fungsionalitas yang sama dengan doevents di .
2. Hubungi NetscapeNavigator di Delphi.
Dengan popularitas Internet, pernahkah Anda berpikir untuk memulai browser Netscape di program Delphi Anda dan menampilkan beranda dari alamat WWW yang Anda tentukan? Program berikut dapat menjalankan fungsi ini.
programNetscape;
menggunakanDDEMan;
procedureGo??toURL(sURL: string);
var
dde:TDDEClientConv;
mulai
dde:=TDDEClientConv. Buat(nihil);
denganddedo
mulai
//tentukan lokasinetscape． exe
Aplikasi Layanan：=′c： s32program etscape． exe′;
//aktifkanNetscapeNavigator
SetLink('Netscape', 'WWW-Aktifkan');
Data Permintaan(′0xFFFFFFFF′);
//mendapatkanURL yang ditentukan
SetLink('Netscape', 'WWW-OpenURL');
Data Permintaan(sURL+′,,0xFFFFFFFF,0x3,,,′);
Tutup Tautan;
akhir;
ya. Bebas;
akhir;
mulai
GotoURL(′http://www.yahoo.com/′);
akhir.
3. Keluaran bilangan bulat yang diformat.
Angka yang relatif besar akan tampak sulit dibaca saat dikeluarkan. Cara menampilkan angka dengan tanda bagian di Delphi cukup sederhana, sebagai berikut: xxxxx. keterangan: ΚFormatFloat(′#′, 524667500).
4. Dapatkan petunjuk pada waktu kompilasi.
Di Delphi2.0, saat kompilasi, Anda dapat meminta kompiler untuk memberi tahu Anda beberapa petunjuk, seperti variabel mana yang dideklarasikan tetapi tidak pernah digunakan. Kami tahu bahwa Anda dapat mengontrol apakah Anda ingin Delphi melakukan ini melalui opsi di menu, tapi bagaimana jika karena beberapa kebutuhan khusus, Anda hanya memerlukan Delphi untuk meminta Anda di segmen kode tertentu? Silakan lihat prosedur berikut.
{$PETUNJUK}
prosedurTform1． Button1Click(Pengirim: TObject);
var
X: bilangan bulat;
mulai
akhir;
{$PETUNJUK}
5. Ubah wallpaper Windows95.
Anda dapat mengganti wallpaper dengan mudah di Delphi, silakan simak prosedur berikut ini.
prosedurUbah;
var
Reg:TregIniFile;
mulai
Reg：ΚTRegIniFile． Buat('Panel Kontrol')
;
Reg. WriteString('desktop', 'Wallpaper',
'c: pwin95hutan. bmp′);
Reg. WriteString('desktop', 'TileWallpaper
′,′1′);
Reg. Bebas;
SystemParametersInfo(SPI-SETDESKWALLPAPER, 0
, nihil, SPIF-SENDWININICHANGE);
akhir;
6． Dapatkan tanggal file terakhir digunakan.
Ada fungsi baru di Win95, yaitu untuk mengetahui tanggal terakhir akses file. Software CleanSweapforWin95 yang terkenal mengandalkan fungsi ini sebagai salah satu dasar untuk menilai apakah suatu file sering diakses. Di Delphi, kita dapat mencapai fungsi ini melalui program berikut.
functionGetFileLastaccessTime(sFileName:string):TDate??Waktu;
var
ffd:TWin32FindData;
dft:Kata D;
kiri:TFileTime;
h: Pegangan;
mulai
//dapatkan informasi file
h：ΚJendela． TemukanFilePertama(PChar(sFileName), ffd);
if（INVALID―HANDLE―VALUEΙΛh）maka
mulai
//kami sedang mencarijustonefile, jadicloSE"menemukan" kami
jendela. TemukanTutup(h);
//mengubah FILETIME menjadi FILETIME lokal
FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft);
//konversi FILETIME ke DOStime
FileTimeToDosDateTime(lft,LongRec(dft).Hai,LongRec(dft).Lo);
//terakhir, ubahDOStime menjadiTDateTimeuntuk digunakan dalam fungsi tanggal/waktu asli Delphi
Hasil: ΚFileDateToDateTime(dft);
akhir;
akhir;
GetFileLastAccessTime() akan mengembalikan tanggal akses terakhir file yang Anda tentukan dalam format TdateTime Delphi.
7. Label berwarna-warni.
Kita tidak lagi puas dengan label sederhana yang disediakan oleh Delphi. Bisakah kita memiliki font dan warna berbeda pada label untuk memperkaya kemampuan kinerja kita. Jawabannya adalah ya, dan tidak perlu kontrol yang disediakan oleh pihak ketiga. Kita hanya perlu cerdik menggunakan TRichEdit yang disediakan oleh Delphi sendiri. Pertama-tama hapus batas kontrol TRichEdit: RichEd??it1. BorderStyle: ΚbsNone; juga menyetel atribut read-only ke true: RichEd??it1. ReadOnly: ΚTrue Kemudian, Anda menggunakan perangkat lunak seperti write untuk membuat teks dalam format RichText, yang dapat ditampilkan melalui pernyataan berikut:
KayaSunting1. Teks Biasa:ΚSalah;
KayaSunting1. Garis． LoadFromFile(′c:est.rtf′);
8. Bagaimana mencegah Win95 menampilkan kesalahan kritis.
Tidak peduli bagaimana Anda men-debug program Anda berulang kali, setelah menyerahkannya kepada pengguna, kesalahan tak terduga mungkin terjadi. Bagaimana mencegah Win95 menampilkan jendela putih dan memberi tahu pengguna Anda bahwa telah terjadi kesalahan tak terduga yang memalukan? Kita bisa melakukan ini:
var
wOldError??Mode: Kata;
mulai
//beri tahuwin??dowstoignorecriticalerrorsandsavecur??renterrormode
wOldError??Mode: ΚSetEr??rorMode (SEM-FAILCRITI??CALERRORS);
mencoba
//kode yang mungkin menghasilkan kesalahan kritis, lihat di sini． ． ．
Akhirnya
//gobacktopreviouserrormode
SetErrorMode(wOldErrorMode);
akhir;
akhir;
Terutama gunakan SetErrorMode() untuk menyelesaikan fungsi ini.
9. Objek mana yang baru saja diklik dengan mouse.
Di Win95, tombol kanan mouse memainkan peran besar. Namun, karena alasan historis, penggunaan tombol kanan tidak cukup efektif bahkan di Delphi. Program berikut ini dapat memberi tahu Anda cara mengetahui nama objek Anda cukup klik kanan. Pertama buatlah popmenu, lalu kode berikut dapat memberi tahu Anda nama objek yang baru saja Anda klik kanan: Popup??Menu1. Komponen Popup. Nama Kelas.
10. Periksa apakah CD-ROM atau disk lain telah diubah.
Cara termudah untuk memeriksa apakah CD-ROM atau disk telah diubah adalah dengan memeriksa nomor volumenya. Anda cukup menggunakan fungsi berikut untuk mengembalikan nomor seri volume disk GetDiskVolSerialID ('E').
functionGetDiskVolSerialID(cDriveName: char): DWord;
var
dwTemp1, dwTemp2:DWord;
mulai
GetVolumeInformation(PChar(cDriveName+′:′), Nihil, 0, Hasil, dwTemp2, dwTemp2, Nihil, 0);
akhir;