Arsip: Key pada keyboard

 
user image
more 10 years ago

budi_sleman

Halo, mau tanya lagi. Kalau Key 'Enter' itu kan#13,nah tanya kalau untuk tombol 'delete' dan 'backspace' berapa ya.....................
user image
more 10 years ago

DelphiExpert

Silahkan lihat daftar constanta dalam unit Windows...

VK_BACK = 8;
VK_DELETE = 46;
user image
more 10 years ago

budi_sleman

terima kasih.............. udah ketemu solusinya
user image
more 10 years ago

dadanarifin

vk_LButton vk_RButton vk_Cancel vk_MButton vk_Back vk_Tab vk_Clear vk_Return vk_Shift vk_Control vk_Menu vk_Pause vk_Capital vk_Escape vk_Space vk_Prior vk_Next vk_Home vk_Left vk_Up vk_Right vk_Down vk_Select vk_Print vk_Execute vk_SnapShot vk_Insert vk_Delete vk_Help vk_NumPad0 vk_NumPad1 vk_NumPad2 vk_NumPad3 vk_NumPad4 vk_NumPad5 vk_NumPad6 vk_NumPad7 vk_NumPad8 vk_NumPad9 vk_Multiply vk_Add vk_Separator vk_Subtract vk_Decimal vk_Divide vk_F1 vk_F2 vk_F3 vk_F4 vk_F5 vk_F6 vk_F7 vk_F8 vk_F9 vk_F10 vk_F11 vk_F12 vk_F13 vk_F14 vk_F15 vk_F16 vk_F17 vk_F18 vk_F19 vk_F20 vk_F21 vk_F22 vk_F23 vk_F24 vk_NumLock vk_Scroll // di OnKeyDown . procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = (Keyboard Kode ) then ShowMessage('OnKeyDown'); end; // contohnya procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if (Key = chr(vk_Return)) then ShowMessage('OnKeyPress'); end;
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com