Delphi-PRAXiS - Delphi Events

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Events (https://www.delphipraxis.net/86716-events.html)

Hallo,

ich arbeite gerade zum Lernen ein paar Komponenten-Sourcecodes durch. Dabei ist mir folgendes aufgefallen:

In einer Komponente wurde folgendes selbsterklärendes Event erstellt:

Delphi-Quellcode:

FOnMouseExit : TNotifyEvent;

Der Aufruf erfolgt weiter unten im Source in einer Prozedur, welche die Message wm_mouseexit o.ä. abfängt, wie folgt:

Delphi-Quellcode:

			if assigned(FOnMouseExit) then

    FOnMouseExit(Self);

So weit so gut. Ich habe es aber bisher immer so gemacht, daß ich ein Ereignis zuerst definiert habe mit

Delphi-Quellcode:

			Type TMeinEreignis = procedure of object;

[...]

VAR MeinEreignis : TMeinEreignis;

[...]

Das Auslösen des Ereinisses erfolgte analog zu o.g. Beispiel - und funktioniert übrigens ebenfall tadellos. Nun meine Frage: Wo ist der Unterschied / vor- oder Nachteil der beiden Funktionen?!?

Noch was: Gibt es irgendwo im Netz gute Tutorials zum Thema Event und Messages. Ich arbeite mich da gerade zwar ein, aber steige irgendwie noch nicht ganz durch. Die ganzen WM_xxx messages SC_xxx etc. bringen mich noch ziemlich durcheinander, ebenso die messages, welche noch parameter besitzen (z.B. WM_KEYUPMSG o.ä.). Die Einsteigertutorials des Forums habe ich übrigens schon durchgearbeitet, ich würde aber gerne mehr "Hinter die Kulissen" schauen.

Hoffe Ihr könnt mir weiterhelfen,

SCRaT

Der Unterschied zwischen deinem TEreignis und TNotifyEvent?

naja ganz einfach:

Delphi-Quellcode:

			TNotifyEvent = procedure(Sender:TObject) of Object;

TMeinEreignis = procedure of object;

Oder habe ich was falsch verstanden?

Moin Scrat,

ein wesentlicher Unterschied besteht da nicht.
TNotifyEvent ist so deklariert (sollte auch in der Hilfe stehen):

Delphi-Quellcode:

type TNotifyEvent = procedure (Sender: TObject) of object;

Du verwendest nur eine Variable, wohingegen man in einer Komponente für so etwas private-Felder benutzt.

ok, so weit ist es mir jetzt klar. Aber was für einen Vorteil hat denn der Paramter von Notifyevent (Sender: TObject) in der Praxis? Ich muss ihn ja dann auch z.B. in der Prozedur mit FOnMouseExit(Self) aufrufen, nur der Vorteil ist mir nicht ganz klar. Es wird ja in der Komponente immer nur "self" übergeben (s.o. if assigned....) oder wann könnte der Parameter einen anderen Wert annehmen?!?

Zitat:

Du verwendest nur eine Variable, wohingegen man in einer Komponente für so etwas private-Felder benutzt.

Das Verstehe ich nicht ganz. Was genau meinst Du damit?

Du kannst zum Beispiel mehren Buttons das gleiche OnClick zuweisen. Durch den übergebenen Sender kannst du dann herausfinden welcher Button diese Procedure aufgerufen hat. Zudem gibt es ja nicht nur diesen Parameter. Zum Beispiel gibt es bei vielen Komponenten auch ein OnCustomDraw wo übergeben wird welcher Teil neu gemalt wird etc.
Zudem muss ein Event nicht immer nur benachrichtigen sondern kann auch abfragen (als Funktion oder mit var-Parameter)

Zitat:

Zitat von SirThornberry

Hmmm.. ok, ich werde es mal testen. Vielleicht werde ich ja aus dem Verhalten des Programmes etwas mehr vertraut, die Hintergrundinfos habe ich ja jetzt :-)

SCRaT