procedure of object zuweisen

[Phenix]

Hey,

ich programmiere gerade ein paar meiner Programme aus Delphi in Lazarus um. Dabei komme ich auf folgendes Problem:

Ich benutze ein OnMessage, also

Code: Alles auswählen

procedure OnMessage(txt:String) of Object;

in KKlasse.

In einer anderen Unit möchte ich dann der Prozedur

Code: Alles auswählen

procedure GetMessage(txt:String);

diese OnMessage Prozedur zuweisen.
In Dlephi habe ich das mit

Code: Alles auswählen

Klasse.OnMessage:=self.GetMessage;

gemacht, aber in Lazarus funktioniert das nun nicht und er gibt mir den Fehler aus:
unit1.pas(421,39) Error: Wrong number of parameters specified for call to "GetMessage"

Ich hoffe ihr könnt mir helfen!
Gruß

Phenix

[theo]

http://www.lazarusforum.de/viewtopic.php?p=24174#p24174" onclick="window.open(this.href);return false;

[Euklid]

Hallo Phenix,

hast du es mal mit dem Delphi-Kompatibilitätsmodus probiert? Einfach in den ersten Zeilen deines Programms den Schalter

{$mode delphi}

einbauen.

Viele Grüße, Euklid

[Christian]

Dann wirft er aber ne menge vorteile des objfpc modes weg.

[Phenix]

Danke euch

Ich habs jetzt so gemacht wie im Link und es funktioniert wunderbar:

Code: Alles auswählen

Klasse.OnMessage:=@self.GetMessage;

Die Lösung mit dem {$mode delphi} funktioniert auch sehr gut^^

Grüße

Phenix

[pluto]

das self muss eigentlich nicht davor. Das kannst du dir sparen.....