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