[Primo13]

Приветствую уважаемые кодеры!

Есть несколько вопросов... Первый звучит так: Каким образом можно реализовать такую фичу, чтобы при нажатии на кнопку "Enter" с клавиатуры, нажималась определенная кнопка (Button) на форме? Второй вопрос: Как реализовать фичу описанную выше, но чтобы нажатие "Enter" с клавиатуры читалось софтиной при другом активном окне (окно софтины неактивно)?

P.S. Про эмуляцию знаю, но она не подходит вроде... Насчет хука глобального тоже слыхал, но слишком трудно. Может подойдет SendMessage? Если да, то как реализовать с ее помощью?

[Alegun]

Например

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_RETURN then Button3.Perform(BM_SETSTATE, 1, 0);
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_RETURN then Button3.Perform(BM_SETSTATE, 0, 0);
end;

только KeyPreview у формы в true установить не забыть