При нажатии enter запускалась процедура

[Rusl92]

Здравствуйте, помогите мне пожалуйста!
как при нажатии ИНТЕР - запускалась процедура butto1Click?
то есть как-будто мы нажали на кнопку Button1
Заранее спс

[Квэнди]

button1.click;

[Rusl92]

при нажатии на ИНТЕР

[Квэнди]

onkeypress
номер клавиши в ASCII 13

[xakkkkker]

у формы есть такая процедура KeyPress вот кодщщщщщщщщ

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button1.Click;
end;

[mihali4]

Еще (для общего развития):

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_RETURN then
Button1.Click; // или Button1Click(Self);
end;

Да, и не забываем ставить в TRUE свойство формы KeyPreview...

[s.Creator]

Сообщение от Rusl92

Здравствуйте, помогите мне пожалуйста!
как при нажатии ИНТЕР - запускалась процедура butto1Click?
то есть как-будто мы нажали на кнопку Button1
Заранее спс

поставь у Button1 свойство Default в true

[Квэнди]

s.Creator
а если в фокусе другой объект ?

[s.Creator]

Determines whether the button’s OnClick event handler executes when the Enter key is pressed.

будет срабатывать OnClick независимо от того что выделено на форме.
если надо чтобы OnClick соабатывал только при выделении определенного объекта формы то вопрос другой но об этом не писали.

Не будет срабатывать OnClick кнопки если выделен компонент поглащающий Enter
(например Memo) - что по моему и хорошо
если же выделена кнопка то сработает OnClick выделенной кнопки как по Enter так и по пробелу

[Rusl92]

Cпасибо большое всем за ответы!