Shorcut tombol Fungsi F1 /F2/F3/F4 untuk menampilkan form pada delphi dengan menekan tombol keyboard

Set property KeyPreview pada form utama menjadi True
manfaatkan event OnkeyDown pada form utama




sedangkan source codenya adalah sebagai berikut :


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_F1: ShowMessage('Anda menekan F1');
VK_F2: Form2.ShowModal;
VK_F3: Form3.ShowModal;
VK_F4: Form4.ShowModal;
end;
end;

program di atas akan menghasilkan pesan   "Anda menekan F1" jika anda menekan tombol F1


jika F2 maka form 2 akan di tampilkan 
jika F3 maka form 3 akan di tampilkan 
jika F4 maka form 4 akan di tampilkan  




selamat belajar



KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI