procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then ShowMessage('Ctrl-A'); end;
TForm1.FormKeyDown(Sender: TObject; var
Key: Word; Shift: TShiftState); begin
if
(ssCtrl in
Shift) and
(chr(Key) in
['A', 'a']) then
ShowMessage('Ctrl-A'); end
;