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:

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 :roll:

[Nils_13]

Zitat:

Zitat von inherited

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

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.