I swear I tried this before, but the error was the same. Now, it worked! Must be the elves who live under my desk!
Thanks 2009/10/2 Mattias Gaertner <[email protected]> > > On Fri, 2 Oct 2009 14:11:00 -0300 > Guionardo Furlan <[email protected]> wrote: > > > Hello, this is the situation (lazarus 0.9.29 - fpc 2.3.1): > > TMyClass = class > > private > > FNotifica: TNotifyEvent; > > procedure SetNotifica(const AValue: TNotifyEvent); > > published > > property Notifica: TNotifyEvent read FNotifica write SetNotifica; > > end; > > > > var MyClass: TMyClass; > > > > This is OK. > > > > On another unit, I have: > > > > TAnotherClass = class > > public > > procedure DoNotifica(Sender: TObject); > > procedure SetLinks; > > end; > > > > procedure TAnotherClass.SetLinks; > > begin > > MyClass.Notifica:=self.DoNotifica; // <--- This is the problem > > MyClass.Notifica:=...@donotifica; // <--- This is the solution > > > > end; > > > > and, when fpc compile this I get: > > > > fopessoas.pp(41,39) Error: Wrong number of parameters specified for > > call to "NotificaInfo" > > fopessoas.pp(22,15) Hint: Found declaration: > > TfPessoas.NotificaInfo(TObject); > > fopessoas.pp(91) Fatal: There were 1 errors compiling module, stopping > > > > Well, what can I do? > > > Mattias > > -- > _______________________________________________ > Lazarus mailing list > [email protected] > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
