Übergabe Funktion an Constructor

[Joh]

Moin,

wenn ich eine Komponente im Code erstelle, kann ich ja die Ereignisprozedur mit

Code: Alles auswählen

komponente.OnChange := @setFilter;

zuweisen.
Wie übergebe ich dann die Funktion im Constructor, wenn ich die Ereignisprozedur mit übergeben will?

Der Aufruf

Code: Alles auswählen

constructor Create (AOwner: TComponent; ...; ptr: Pointer);

mit

Code: Alles auswählen

sf := TmyFeld.Create(self, ..., @setFilter);

wirft mit einen Error: Incompatible type for arg no. 4: Got "<procedure variable type of procedure(TObject) of object;Register>", expected "Pointer".
Bisher war ich der Meinung, ein @setFilter entspricht einem Pointer auf die Funktion setFilter. Kann ich überhaupt die Prozedur übergeben?
Oder wäre der passendere Weg, im Construktor über AOwner.setFilter zu gehen?

Joh

(ich befürchte, man merkt, das hier jemand, der eigentlich prozedural programmiert, versucht, Objekte zu erzeugen...)

[Zvoni]

Ein OnChange-Ereignis hat ja in der Regel nen Datentyp "TNotifyEvent"
https://lazarus-ccr.sourceforge.io/docs ... event.html

Ungetestet

Code: Alles auswählen

sf := TmyFeld.Create(self, ..., Pointer(@setFilter));  //Harter Cast

Damit brauchst du aber wieder einen Cast zurück im Constructor, glaub ich zumindest

Oder das versuchen:

Code: Alles auswählen

constructor Create (AOwner: TComponent; ...; ptr: TNotifyEvent);

[Joh]

Oder das versuchen:

Code: Alles auswählen

constructor Create (AOwner: TComponent; ...; ptr: TNotifyEvent);

Danke! so funktionierts. Noch so schön

[Zvoni]

Oder das versuchen:

Code: Alles auswählen

constructor Create (AOwner: TComponent; ...; ptr: TNotifyEvent);

Danke! so funktionierts. Noch so schön

Denk dran: Das funktioniert dann insoweit, sofern die Events alle den gleichen Typ haben (TNotifyEvent).
Sollte ein Event mit einem anderen Datentyp ins Spiel kommen (andere Arguments-Liste), ist wohl das sinnvollste einen Constructor-Overload pro Datentyp zu machen