Mega Code Archive

 

Categories / Delphi / Examples

 

Find the appropriate constant for virtual keys

// Keyboard Codes: // Useful If you don't have the Source-Code from Windows.pas // Nützlich, wenn man den Source-Code von der Windows Unit nicht hat. 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 // OnKeyDown fires when the user presses a key. // Das Ereignis OnKeyDown wird ausgelöst, wenn der Benutzer eine Taste drückt. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = (*Keyboard Code*) then ShowMessage('OnKeyDown'); //Or other thing end; { Es geht auch mit OnKeyPress (dort funktionieren aber nicht alle Keyboard Codes): Or trap a Key in the OnKeyPress event (note that not all Keyboard Codes work there} procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if (Key = chr(vk_Return)) then ShowMessage('OnKeyPress'); end;