From Free Pascal wiki
Jump to navigationJump to search
Revision as of 07:32, 18 February 2020 by Trev (Fixed syntax highlighting; deleted category included in page template)
The OnKeyDown event of an object allows you to check what key the user has pressed.
Note that the procedure keeps track of shift/alt/ctrl etc keys separately (in Shift) from the "regular" keys (in Key) - see the procedure signature in the example.
uses ...LCLType, Dialogs, ...; ... procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin // Example: checking for simple keys: if (Key = VK_DOWN) or (Key = VK_UP) then ShowMessage('Pressed arrow up or down key'); // Check for Alt-F2 if (Key = VK_F2) and (ssAlt in Shift) then ShowMessage('Alt F2 was pressed') Key := 0; // Necessary for some widgetsets, e.g. Cocoa, in order to disable processing in subsequent elements. end;