Edit İçinde Enter Tuşuyla Butona Komut Göndermek

[Safirmedya]

Edit içine girilen veriden sonra Enter tuşu ile Butona komut vermek.

Kod Seç Genişlet





procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then begin
    SelectNext(Sender as tWinControl, True, True );
    if Sender = Edit10 then
      Button1.Click; // let the button click itself
    Key := #0;
  end;
end;




[Safirmedya]