Button - OnClick Ereignis über Editfeld auslösen

[Lannes]

Hallo,

dann gehört der Code in den OnChange-Event-Handler des Edit

Delphi-Quellcode:

procedure TForm1.CloseAction;
begin
  // was da auch immer passieren soll
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //irgendein Code
  CloseAction;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = 'Test' then
    begin
    //irgendein anderer Code
    CloseAction;
    end;
end;

kannst aber auch
Button1Click(Self); verwenden, solange in ButtonClick nicht mit Sender gearbeitet wird.