Compiler Error bei onClick Ereignis bei Button

[Libor]

Hallo Forum,

ich habe ein TreeView Element. Je nach gewähltem Eintrag soll im Panel daneben ein anderes Formular dargestellt werden. Jedes Formular enthält einen Button zum Aufruf einer Prozedur, die die Daten speichert.

Der Übersicht halber möchte ich den Quellcode für jedes Formular und das Speichern der Daten auslagern. Dazu habe ich je eine neue Unit erstellt, den Quellcode übertragen und die Unit bei uses eingebunden.

Nun bringt mir die Zeile
-> btn1.OnClick:=@saveWorkarea;
die folgende Compilermeldung:

workarea.pas(235,19) Error: Incompatible types: got "<address of procedure(TObject);Register>" expected "<procedure variable type of procedure(TObject) of object;Register>"


Vermutlich habe ich ein Verständnisproblem bei den Grundlagen und ein passender Linktipp wäre schon hilfreich?!

Danke und Gruß
Libor

[m.fuchs]

saveWorkarea ist bei dir vermutlich eine normale Prozedur, es muss aber eine Methode sein. Also eine Prozedur einer Klasse.

[Libor]

Hallo Michael,

das stimmt. Ich dachte ich könnte das zum Test erst mal so schnell machen.
Aber eigentlich richtig dass schlampige Arbeit nicht zugelassen wird.

Vielen Dank für Deine schnelle Rückmeldung

Gruß

Libor

[Warf]

Das liegt daran das Methoden noch die Information enthalten zu welchem Objekt sie gehören, normale Prozeduren nicht
Versuch mal so etwas:

Code: Alles auswählen

var m: tmethod;
M.code:=@saveworkarea;
M.data:=Nil;
Btn1.onclick:= tnotifyevent(m);

Damit übergibst du die Information über das Objekt separat

Siehe: https://www.delphi-treff.de/object-pasc ... denzeiger/