Mehrere Ereignisse zusammenfassen

[Nils S.]

Hallo zusammen,

wie kann ich mehrere Ereignisse zusammenfassen, die die gleiche Prozedur auslösen sollen?

Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1.Click, TForm2.Button2.Click;
begin
  Close;
end;

So funktioniert es natürlich leider nicht.
Aber irgendwie ist das doch bestimmt machbar oder?

Freue mich schon auf Eure Hilfe.

[Aviator]

Um ein EventHandler zu schreiben der für mehrere Buttons gilt, sollte der so aussehen:

Delphi-Quellcode:

procedure TForm1.AlleButtonClick(Sender: TObject);
begin
// Some Code
end;

Und nun allen Buttons im Objektinspektor beim OnClick Event diesen EventHandler zuweisen.

[himitsu]

Und wenn die Form modal angezeigt wird (TForm.ShowModal), dann reicht es dem Button ein passendes ModalResult zuzuweisen und das Close wird nicht mehr gebraucht.

[CocoPops]

Ich schätze mal, dass das ein Formular mit OK- und Abbrechen-Button ist, oder?
Da würde sich ein ShowModal mit ModalResult doch anbieten.

Edit: mist, der Rote Kasten wurde nicht angezeigt

[Nils S.]

Oha, das ging ja schnell.

Vielen Dank, das klinkt einleuchtend, hätte ich auch von selbst drauf können. xD
Ja, also hier speziell geht es jetzt um das Hauptformular, welches eine Benutzeranmeldung ist.
Aber ich werde das wohl noch in einigen anderen Fällen anwenden.

Was genau ist ModalResult?
Ein Close für eine modale Form?

[Sir Rufo]

Doku TForm.ShowModal

[Nils S.]

Hm ok.
Das bringt mich dann also z.B. weiter, wenn ich wissen will, wie die Form geschlossen wurde und ich brauche keine extra Prozedur fürs Schließen.

Aber ist es rein programmiertechnisch nicht schöner, wenn man im Code sieht, was durch den Klick passiert?
Also in Form einer Prozedur?