al apretar enter haga....

[totote]

buenas como hago para que cuando en un edit apreto enter me ejecute el evento onclick de un boton?, la idea es para buscar en una db escribo lo que quiero en el edit y cuando le doy enter haga lo que hace mi boton buscar

[marcoszorrilla]

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;

Un Saludo.

[totote]

Funciono de perlas!!!.... muchas gracias marcoszorrilla