Delphi menggunakan ABC

ACara memblokir tombol fungsi sistem

Terkadang kita tidak ingin program diganggu oleh pengguna yang menggunakan Alt+Tab, Ctrl+Alt+Del, Ctrl+Esc dan tombol fungsi sistem lainnya (seperti program demonstrasi otomatis), jadi apa yang harus kita lakukan? Izinkan saya mengingatkan Anda bahwa tombol fungsi ini tidak aktif saat menjalankan screen saver - artinya, selama program Anda berjalan, Anda dapat "mengelabui" Windows agar mengira ia ada di layar ! Silakan lihat kode berikut:

var

suhu : bilangan bulat;

mulai

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0);

akhir;

Tentu saja, jangan lupa untuk mengembalikan pengaturan dan "membangunkan" Windows di akhir program. Kodenya adalah sebagai berikut:

var

suhu : bilangan bulat;

mulai

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0);

akhir;

BCara meminta cabang

Sebagian besar kontrol di Delphi memiliki properti Petunjuk praktis, yang merupakan prompt floating bar. Namun terkadang promptnya panjang. Bisakah bilah prompt mengambang ditampilkan dalam baris terpisah? Faktanya, Hint adalah sebuah string, jadi Delphi akan secara otomatis menafsirkan karakter kontrol carriage return saat menampilkan string, jadi tambahkan saja karakter kontrol carriage return. Berdasarkan prinsip ini, kita juga dapat membuat bilah prompt vertikal yang unik. Silakan susun dulu labelnya di form1, lalu lihat kode contohnya:

Prosedur TForm1.FormCreate(Pengirim: TObject);

mulai label1.Petunjuk := 'vertikal' + #13 + 'lurus' + #13 + 'ti' + #13 + 'tunjukkan';

akhir;

CCara menampilkan gambar di menu

Sudahkah Anda menggunakan Office97? Apakah menurut Anda menyegarkan menampilkan ikon di menu? Jika Anda ingin program Anda begitu menarik, harap persiapkan bmp sesegera mungkin!

Misalkan Anda berencana untuk menambahkan ikon printer (nama file adalah c:/inter.bmp) ke item ke-9 (nomor seri diubah menjadi 8) "Cetak" di bawah bilah menu "File" (namanya n1), lalu asalkan formulir OnCreate Acaranya ditulis seperti ini:

var

Bmp: Gambar;

mulai

Bmp := TGambar.Buat;

Bmp.LoadFromFile(′c:/printer.bmp′);

SetMenuItemBitmaps(n1.Handle,8, MF_BYPOSITION,Bmp.Bitmap.Handle, Bmp.Bitmap.Handle);

akhir;

Diantaranya, bitmap.handle pertama digunakan untuk item menu yang tidak dipilih (tidak dicentang), dan yang kedua menentukan bitmap yang ditampilkan saat dipilih (dicentang). Selain itu, karena tinggi item menu terbatas, jika bitmap terlalu besar, hanya pojok kiri atas yang akan ditampilkan. (Shanghai Wang Zhen)