комбинация клавиш

[unbanned]

к примеру

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin

  end;
end;

а как сделать обработчик нажатия комбинации клавиш, например Ctrl + Enter?

[phomm]

FormKeyDown/FormKeyUp в них можно учесть и ctrl shift alt и клавишу любую

[unbanned]

ну судя по всему меня неправильно поняли...
вообщем нашел такое решение

...
public
     procedure h_key(var Message: TMessage); message WM_HOTKEY;
{ Public declarations }
  end;
...
procedure TForm2.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 0, VK_CONTROL, VK_RETURN);
end;
...
procedure TForm2.h_key(var Message: TMessage);
begin
  //сам обработчик собственно
end;
...
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(Handle, 0);
end;

[Аватар]

Еще вариант - в ActionList засунуть Action c ShortCut:=Ctrl+Enter и в Action.OnExecute обработка

[SNUPY]

Как вариант можно повесить хук.

[unbanned]

хм, спасибо