Советы по 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]



Содержание раздела