Cara Bikin Shorcut Button Delphi

Hola temen - temen gimana kabarnya nichh.....!!!!! setelah kemarin saya ngeshare cara membuat hotkey menggunakan delphi sekarang saya mau bagi - bagi listing buat bikin shorcut button, mungkin temen - temen bingung sebenernya apa sih bedanya  hotkey yang kemarin itu sama shortcut button yang bakal saya share sekarang. Bedanya yaitu kalo hotkey kemarin kan saya meng kombinasikan dua buah tombol dalam listing yang kemarin misalnya: Ctrl+A, Ctrl+B, Ctrl+C dan seterusnya... Nah kalo sekarang saya mau  bikin yang pakai satu tombol saja alias tanpa kombinasi misalnya F1, F2, F3 dan seterusnya. Nih saya sudah ada contoh gambar form yang saya bikin pake shortcut button ini.

Ini sebenarnya masih satu program sama yang post saya yang berjudul Listing Program untuk Tombol Add, Edit, Save, Delete dan Close pada Delphi  cuma karena kemarin udah ga sempet buat ngetik lagi makanya saya lanjutkan sekarang. Ya udah biar ga kelamaan  basa - basinya sekarang bakal langsung bagi listingnya buat temen - temen. 

procedure Tfrmbarang.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

case key of

 VK_ESCAPE:close;

 VK_F3 : btnaddClick(Sender);

 VK_F4 : btneditClick(Sender);

 VK_F5 : btndelClick(Sender);

end;

 end;

Huuu Yuuuuppzzz itu tadi listing buat bikin shortcut button mungkin kalo ada kekurangan  dalam listing ini temen - temen atau yang udah master delphi bisa bagi - bagi kritik dan sarannya buat saya si delphier newbie dan bisa memperbaiki supaya jadi lebih baik karena saya mau kita disini sama - sama belajar dan berkembang bersama buat jadi delphier yang lebih baik.. okayyy temen - temen salam delphier ya semoga posting ini dapat membantu teman - teman... Salam Delphierrrr!!!!!!