Кнопка на enter

[misher]

Нужно чтобы button срабатывал на enter.

procedure TForm3.Button1Enter(Sender: TObject);
begin
if key=VK_Enter then Button1;
end;

Вот это мой код почему он не работает?

[MyLastHit]

procedure TForm3.Button1Enter(Sender: TObject; var Key: Char);

помоему так. хотя я наверное ошибаюсь. Я в таких случаях пишу процедуру для кнопки, вызываю ее в OnKeyPress где Key = Chr(13)

[Selestis]

Событие Enter к нажатию клавиш не относится, если вы не заметили, читайте справку. Вам нужно в OnKeyDown прописать

if Key = 13 then DoSmth;

then Button1;

А что значит это можно токо гадать. Вы что хотите конкретно сделать?

[misher]

Конкретно есть кнопка проверить но она не работает(не нажимается на интер) если я пишу в TEdit нужна чтобы работала!

[Selestis]

А теперь по-русски)
Если я вас понял:
У остальных компонентов установите TabStop в false
Ещё можете делать кнопку активным компонентом вручную...

[misher]

Вы все правильно поняли, вот только можно ли сделать так чтобы и TЕdit работал(переключался 1,2,3 на Tab)и кнопка на Enter была?

[MyLastHit]

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = Chr(13) then
begin Key:=Chr(0);
{процедура или действия повешеные на кнопке}
end;
end;

Почему бы так не сделать?

[Selestis]

MyLastHit
А при чем тут мемо?
NarkoIII@
Если так надо, то примерно как MyLastHit написал(без Key:=Chr(0); мне кажется), только у формы. И поставьте у неё KeyPreview=true.

[MyLastHit]

там эдит. просто я на нем тестил. Если каретка находится в Эдит то хоткей Enter вызовет процедуру повешанную на кнопку. Или я не понимаю чегото? Че надо короче? хоткей для формы или Эдита?

[misher]

Если так надо, то примерно как MyLastHit написал(без Key:=Chr(0); мне кажется), только у формы. И поставьте у неё KeyPreview=true.

а это что я наставил убирать?-

У остальных компонентов установите TabStop в false
Ещё можете делать кнопку активным компонентом вручную...