Sebagai bahasa pemrograman Windows yang baru, Delphi memilikinya
Banyak fitur unggulan yang terintegrasi menjadi satu sehingga semakin digemari oleh para programmer dan
Disukai oleh audiofil. Sepuluh teknik berikut mencakup berbagai bidang
Cukup memberi manfaat bagi para penggila Delphi.
1. Mirip dengan vb. doevents berfungsi di.
Anda mungkin menemukan bahwa tidak ada yang setara dengan vb. masuk
ents berfungsi, jadi terkadang kami tidak dapat membuat Windows merespons banyak
peristiwa simultan. Sebenarnya di objek aplikasi Delphi
Termasuk metode serupa: PRocessMessage, Anda dapat menelepon
Gunakan aplikasi. ProcessMessage untuk diselesaikan seperti vb. masuklah
tidak memiliki fungsi yang sama.
2. Hubungi NetscapeNavigator di Delphi.
Dengan popularitas Internet, pernahkah Anda berpikir untuk menggunakannya dalam program Delphi Anda?
Jalankan browser Netscape dan tampilkan halaman beranda alamat WWW yang Anda tentukan.
. Program berikut dapat menjalankan fungsi ini.
programNetscape;
menggunakanDDEMan;
procedureGo??toURL(sURL: string);
var
dde:TDDEClientConv;
mulai
hari ini: ΚTDDEClientConv. Buat(nihil);
denganddedo
mulai
//tentukan lokasinetscape． exe
Aplikasi Layanan: Κ′c: ιns32ιprogramιne
pemandangan. 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 lebih besar akan tampak sulit dibaca saat dikeluarkan, di Delphi
Menampilkan angka dengan tanda bagian caranya cukup sederhana, sebagai berikut: xx
xxx. keterangan: ΚFormatFloat(′#′, 524667500).
4. Dapatkan petunjuk pada waktu kompilasi.
Di Delphi2.0, saat kompilasi, Anda dapat meminta kompiler untuk memberi tahu Anda beberapa hal
Tips, seperti variabel mana yang dideklarasikan tetapi tidak pernah digunakan. kita tahu
Ya, Anda dapat mengontrol apakah Anda ingin Delphi melakukan hal ini melalui opsi di menu.
Namun jika karena beberapa kebutuhan khusus, Anda hanya memerlukannya di segmen kode yang ditentukan.
Apa yang harus saya lakukan jika saya mendapat prompt seperti lphi? 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 berikut ini
program.
prosedurUbah;
var
Reg:TregIniFile;
mulai
Reg：ΚTRegIniFile． Buat('Panel Kontrol')
;
Reg. WriteString('desktop', 'Wallpaper',
′c: ιpwin95ιuntuk??perkiraan． bmp′);
Reg. WriteString('desktop', 'TileWallpaper
′,′1′);
Reg. Bebas;
SystemParametersInfo(SPI-SETDESKWALLPAPER, 0
, nihil, SPIF-SENDWININICHANGE);
akhir;
6． Dapatkan tanggal file terakhir digunakan.
Ada fitur baru di Win95, yaitu mendapatkan akses ke file
tanggal terakhir. Perangkat lunak CleanSweapforWin95 yang terkenal mengandalkan ini
Fungsi ini digunakan sebagai salah satu dasar untuk menilai apakah suatu file sering diakses.
Di Delphi, kita dapat mencapai fungsi ini melalui program berikut.
functionGetFileLastaccessTime(sFileName:stri
ng):Tanggal??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 mencari hanya satu file, jadicloSEOur″f
ind″
jendela. TemukanTutup(h);
//mengubah FILETIME menjadi FILETIME lokal
FileTimeToLocalFileTime(ffd.ftLastAccessTime
,lft);
//konversi FILETIME ke DOStime
FileTimeToDosDateTime(lft,LongRec(dft).Hai
,Rec Panjang(dft)． Lihatlah);
//akhirnya, ubahDOStime menjadiTDateTimeforusein
fungsi tanggal/waktu asli Delphi
Hasil: ΚFileDateToDateTime(dft);
akhir;
akhir;
GetFileLastAccessTime() akan menggunakan TdateTi Delphi
format me mengembalikan tanggal akses terakhir file yang Anda tentukan.
7. Label berwarna-warni.
Kami tidak lagi puas dengan tag sederhana yang disediakan oleh Delphi
Ada font berbeda dan warna berbeda pada label untuk memperkaya kita
kemampuan kinerja. Jawabannya adalah ya, dan tidak perlu adanya kontrol yang diberikan oleh pihak ketiga
softwarenya, kita hanya perlu cerdik menggunakan TRichEdit yang disediakan oleh Delphi sendiri.
Itu saja. Pertama-tama hapus batas kontrol TRichEdit: RichEd??it1
． BorderStyle: ΚbsNone; juga menyetel atribut read-only ke true: Rich
Ed??itu1． ReadOnly: ΚBenar; kalau begitu, Anda menggunakan write atau sejenisnya
Setelah software membuat teks dalam format RichText, Anda dapat menampilkannya melalui pernyataan berikut
Hal ini ditunjukkan:
KayaSunting1. Teks Biasa:ΚSalah;
KayaSunting1. Garis． LoadFromFile(′c: ιtest.r
tf′);
8. Bagaimana mencegah Win95 menampilkan kesalahan kritis.
Tidak peduli berapa kali Anda men-debug program Anda, setelah diserahkan kepada pengguna, akan selalu ada
Kesalahan tak terduga mungkin terjadi. Bagaimana mencegah Win95 menampilkan warna putih
Bagaimana dengan jendela yang memberi tahu pengguna Anda bahwa telah terjadi kesalahan yang memalukan dan tidak terduga? kita bisa
Lakukan ini:
var
wOldError??Mode: Kata;
mulai
//beri tahu menang??dowstoignorecriticalerrorsdansimpan
saat ini??renterrormode
wOldError??Mode: ΚSetEr??rorMode (SEM-FAILCR
ITI??CALERRORS);
mencoba
//kode yang mungkin menghasilkan kesalahan kritis
e. ． ．
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, tapi
Karena alasan historis, penggunaan klik kanan masih sulit bahkan di Delphi.
Tidak cukup efektif, program berikut ini dapat memberi tahu Anda cara mengetahui kapan Anda baru saja mengklik kanan
nama objek. Pertama buat popmenu, lalu kode berikut bisa
Untuk memberitahukan nama objek yang baru saja Anda klik kanan: Popup??Menu1. PopupCom
ponent． Nama Kelas.
10． Periksa apakah CD-ROM atau disk lain telah diubah.
Cara termudah untuk memeriksa apakah CD-ROM atau disk telah diubah
adalah memeriksa nomor volumenya. Anda cukup menggunakan fungsi berikut untuk kembali
Mengembalikan nomor seri volume disk GetDiskVolSerialID ('E'),
Kode fungsinya adalah sebagai berikut:
functionGetDiskVolSerialID(cDriveName: char)
:Kata D;
var
dwTemp1, dwTemp2:DWord;
mulai
DapatkanVolumeInformasi(PChar(cDriveName+′:
ι′),
Nol,
0,
ΝHasil,
dwTemp2,
dwTemp2,
Nol,
0);
akhir;