Как сделать выполнение функции по нажатию кнопки Enter?

← →
MikeFW (2002-08-01 15:54) [0]

Уважаемые Мастера, подскажите по следующему вопросу:

Как сделать так, чтобы при нажатии на клавиатуре кнопки Enter, у меня выполнялась процедура, привязанная к кнопке на форме?

← →
MBo © (2002-08-01 15:58) [1]

установить на эту кнопку фокус

← →
Song © (2002-08-01 15:58) [2]

Сделай горячую клавишу или отследи нажатие на TForm.onKeyDown
Тут решений - море.

← →
Dimka Maslov © (2002-08-01 15:58) [3]

Ставишь на фому ActionList в котором создаёшь Action и указываешь для него Shortcut - Enter и создаёшь ему обработчик события OnExecute, в котором пишешь нужную процедуру.

Для кнопки назначаешь свойство Action

>MikeFW

YourForm.KeyPreview := True;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then ShowMessage("Hello ! My name is Enter"); end;

← →
Дмитрий Иванов (2002-08-01 16:01) [5]

А свойство Default не подойдет?

Как сделать выполнение функции по нажатию кнопки Enter? Найти похожие ветки