Ereignisbehandlungsroutinen "fremdaufrufen"

[Delphi-Laie]

Hallo Delphifreunde!

Wenn man eine Ereignisbehandlungsroutine von einem "fremden" Steuerelement aus aufrufen möchte, wie macht man das dann richtig?

Angehängtes Delphi-2-Minimalprojekt soll mein Anliegen verdeutlichen. Klickt man auf den obersten Button, wird einfach ein Piepton ausgegeben.

Der zweite und auch der dritte Button rufen die Ereignisbehandlungsroutine des ersten Buttons auf, mit jeweils unterschiedlichen Parametern. Mangels Ahnung (wie so meistens) habe ich einfach herumprobiert und festgestellt, daß als Parameter (ohne geht es nicht) sowohl "self" als auch "sender" funktionieren. Nur, was ist "richtiger"? Oder gibt es noch einen besseren Weg?

Danke im voraus und Gruß

Delphi-Laie

[Delphi.Narium]

Literatur dazu:

https://www.thoughtco.com/understand...ndlers-1058223

http://www.delphibasics.co.uk/RTL.asp?Name=Self

https://www.delphi-treff.de/object-p...ethodenzeiger/

Mehr unter:
https://www.google.com/search?q=delp...utf-8&oe=utf-8

Kurz:

Self ist die Klasse selbst, in der man implementiert, also quasi eine Selbstreferenz.

Sender ist der Auslöser des Ereignisses.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender : TObject);
begin
  Self.Caption := Format('Self.Name = %s, Self.Classname = %s, Sender.Classname = %s',[Self.Name,Self.Classname,Sender.Classname]); 
end;

[haentschman]

Moin...

Zitat:

Oder gibt es noch einen besseren Weg?

...spendiere den Ereignisbehandlungsroutinen einen Aufruf auf deine eigene private procedure. Da kannst du soviel Parameter angeben wie du willst.
Beispiel:

Delphi-Quellcode:

private
  procedure PrintDocument(Document: TDocument; PageCount, PageHeight: Integer);
...
procedure TfoDocuments.btnPrintClick(Sender: TObject);
begin
  PrintDocument(FLastdocument, 0, 1);
end;

[jaenicke]

Und wenn diese eigene Routine dann noch in einer eigenen Unit und Klasse liegt und diese das Formular nicht kennt, dann ist auch eine gewisse Trennung von GUI und Logik gleich mit umgesetzt.

[haentschman]

Zitat:

dann ist auch eine gewisse Trennung von GUI und Logik gleich mit umgesetzt.

...nicht überfordern. Das haben selbst gestandene Programmierer noch nicht verinnerlicht...

[freimatz]

gestandene? Dann krabbeln die noch! SCNR

[hoika]

Hallo,

Zitat:

und diese das Formular nicht kennt

Wie greife ich denn dann auf Edit1.Text zu ?

[Schokohase]

Zitat von hoika:

Hallo,

Zitat:

und diese das Formular nicht kennt

Wie greife ich denn dann auf Edit1.Text zu ?

Das ist eben der Trick: Gar nicht, denn die Logik hat nichts, aber auch rein gar nichts mit der Präsentation/Darstellung zu tun.

[hoika]

Hallo,
den Smiley nicht gesehen?

[p80286]

Hat er, aber für die Begriffsstutzigen dann nochmal Klartext.

Gruß
K-H