Советы по Delphi

         

Создание собственных горячих клавиш


Как мне перехватывать нажатие созданных мною горячих клавиш?

Во первых установите свойство формы KeyPreview := true;

Затем сделайте что-то типа этого:

    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;

[000938]



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