prozedur soll eine Button-Click prozedur aufrufen

[Spyx]

Ich schätze mal die Antwort ist richtig simple, aber ich suche schon seit einer Stunde und hab noch nichts gefunden.

So soll es funktionieren:
Wenn man im Edit1 Feld etwas geschrieben hat und Enter drückt, soll TForm1.Button1Click ausgeführt werden:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(13)
  then TForm1.Button1Click([color=#ff0000]?[/color]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

Könnte mir da bitte jemand helfen?

[EDatabaseError]

Zitat von Spyx:

Ich schätze mal die Antwort ist richtig simple, aber ich suche schon seit einer Stunde und hab noch nichts gefunden.

So soll es funktionieren:
Wenn man im Edit1 Feld etwas geschrieben hat und Enter drückt, soll TForm1.Button1Click ausgeführt werden:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(13)
  then TForm1.Button1Click(Sender);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

Könnte mir da bitte jemand helfen?

[jfheins]

Oder einfach Button1.Click;

[3_of_8]

Ist allerdings kein sonderlich guter Stil.

[Spyx]

Danke. War mir doch beinahe klar, das ich irgendeinen kleinen Fehler gemacht hatte.

[inherited]

Tu deinen Button1.Click-Code dann lieber in eine extra procedure packen und rufe an beiden Orten einfach diese procedure auf.

[marabu]

Hi,

manchmal genügt es bereits, wenn man Button1.Default im OI auf True setzt.

Gute Nacht

[radekj]

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if Key = Chr(13) 
  then self.Button1Click([color=#ff0000]?[/color]); //<- self und nicht TForm, man braucht ein Objekt und nicht Klasse !!!
  //es geht auch so:
  //then Button1Click([color=#ff0000]?[/color]); //aber mit self. ist der code lesbarer ! 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  close; 
end;

[inherited]

mensch, lies doch mal. Das Thema ist schon längst durch

[Nils_13]

Zitat von inherited:

mensch, lies doch mal. Das Thema ist schon längst durch

Er wollte doch nur andeuten, dass man Form1 nicht benutzen sollte. Ich persönlich habe, wenn ich mit mehreren Formen arbeite, auch nur Probleme mit TForm und bin Benutzer von Self.