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
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?
--
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
