Title: How to find the appropriate constant for virtual keys
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;