Delphi-PRAXiS - OnEvent

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

- Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)

- - OnEvent (https://www.delphipraxis.net/188306-onevent.html)

Hi Leute,

folgendes Szenario. Ich habe ein OnEvent mit Variablen.

Delphi-Quellcode:

			type

  TMyOnEvent = procedure(value1: DWORD64; value2: DWORD64) of Object;

..

  FOnMyEvent : TMyOnEvent ;

..

{ TMyOnEvent }

    property OnMyEnvent: TMyOnEvent read FOnMyEvent write FOnMyEvent ;

..

..

if Assigned(FOnMyEvent ) then

  FOnMyEvent (value1,value2);

Bis dahin so weit so gut.

Ich möchte dieses Event aber an 2Klassen, 2Units or whatever weitergeben.
Da aber nur die letzte Deklaration (logischerweise) ausgelöst wird, stehe ich vor einem Problem. Wie kann ich das Event mit mehreren Klassen verwenden ?
Bzw wonach muss ich suchen.

Oder gibt es eine geschicktere Lösung ? Ziel soll sein das dieses Event mehrere Codestücke auslöst.

Sorry, für meine Erklärung. Falls fehlerhafte Begriffe verwendet werden .. naja bin noch nicht so erfahren in der Programmierung :)

greets
s0n

Hat sich erledigt.
Kann gelöscht werden !

sry für die Umstände

Kannst ja mal dazu schreiben, wie Du es gelöst hast. Dann hilft es in Zukunft auch anderen Ratsuchenden.

Ich hätte es mit dem Observerpattern gelöst:

https://de.wikipedia.org/wiki/Beobac...Entwurfsmuster)

Wir nutzen dafür Listen mit Events. property OnEvent: TList<TOnEvent> usw.

@Jaeninicke: Wie wärs mit Spring4D Multicast events? ;)