Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then button1.Click; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Desde el edit1.'); end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then button1.Click; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Desde el edit1.'); end;