Скачать: CL | DM;

Как сделать выполнение функции по нажатию кнопки 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

---

← →
Skier ©   (2002-08-01 15:59) [4]

>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 не подойдет?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c