Советы по Delphi
Создание собственных горячих клавиш
Как мне перехватывать нажатие созданных мною горячих клавиш?
Во первых установите свойство формы KeyPreview := true;
Затем сделайте что-то типа этого:
| procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) thenShowMessage('Ctrl-A');end; |
[000938]
