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