delphi - evento OnReturnPressed

[alka]

Originariamente inviato da 123delphi321
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then Form1.Button1.Click ;
end;

E' meglio se "assorbi" il tasto...

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Button1.Click;
    Key := #0;
  end;
end;

Ciao!