Захват нажатия клавиш

[mishax]

Как в программе отловить нажатие клавиш Ctrl+d?

[Stilet]

Зарегистрировать эту клавишу как горячую.
http://www.programmersforum.ru/showthread.php?p=1078650
Ищи поиском по слову RegisterHotKey
Или через ActionManager в Delphi.

[mishax]

Спасибо, по началу решил, что надо использовать ActionManager, но на форме он работает, а если фокус внутри OleContainer, то не реагирует.

Использую вот такой код:

...

public

     procedure h_key(var Message: TMessage); message WM_HOTKEY;

{ Public declarations }

  end;

...

procedure TForm2.FormCreate(Sender: TObject);

begin

  RegisterHotKey(Handle, 0, VK_SHIFT, VK_MENU);//вот тут указываешь клавиши, например для shift + alt

end;

...

procedure TForm2.h_key(var Message: TMessage);

begin

  //сам обработчик собственно

end;

...

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  UnRegisterHotKey(Handle, 0);

end;