andrypein.net : Kembali dengan aplikasi iseng nan gabut tentang apps untuk mendeteksi tombol panah dengan delphi.
Maksudnya apa ya? 
Yaaa semacam notifier bodoh gitu lah kalau si form ditekan arrow button nya (tombol panahnya) maka akan si form akan memberi tau tombol apa yang ditekan.
Sangat tidak penting bukan? namun jangan salah, ini program bisa dikembangkan menjadi bot gim onlen loh. 
Berikut adalah penampakan lebih jelasnya :
Bahannya hanya 1 label doang, wkwkkwkwkwkw.
Lalu pada form tersebut berilah event OnKeyDown.
lalu masukan kode ini :
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
VK_LEFT: label1.Caption:='Tombol kiri ditekan';
VK_RIGHT: label1.Caption:='Tombol kanan ditekan';
VK_UP: label1.Caption:='Tombol atas ditekan';
VK_DOWN: label1.Caption:='Tombol bawah ditekan';
end;
end;
Okeh done silahkan di F9 langsung dah jalan coy tinggal dicoba pencet-pencet 4 tombol panah di keyboard maka akan kelihatan hasilnya.
Kenapa jika ada button(misal button exit) lalu ditekan panah, justru malah memilih button bukan program intinya yang jalan.
Terimakasih
program ini ga jalan gan?
belah mana ga jalan nya? kan sample nya juga cuma buat tombol panah loh 😀
Program ini jalan kok gan, yang saya maksud, klo diberi tombol button(tanpa perintah apapun), jadi ga jalan…
ya iya lah gan,karena saat form muncul, si button di focus 😀
Nah, caranya biar unfocus gimana gan?
saat onshow di coba gan,form1 setfocus kali,hahha,maaf ga buka2 delphi gan,udah pindah hati 😀