Código Delphi [-] procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then // ( #13 = tecla enter ) begin Table1.Locate('Country', Edit1.Text, []); Key:= #0; end; end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then // ( #13 = tecla enter ) begin Table1.Locate('Country', Edit1.Text, []); Key:= #0; end; end;