Кнопка на enter

[Selestis]

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

Всё, понял, прошу пардон)

[pupkinsoft]

Сообщение от NarkoIII@

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

да процедуру TForm3.Button1Enter убрать

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

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(13) then
  begin 
    Key:=Chr(0); //это не обязательно 
    Button1.Click;
  end;
end;

[misher]

Всем большое спасибо!!!

[alexprey]

А про свойство default слышали??? поставив его на true кнопка будет срабатывать на Enter сама