[Lazarus] Lazarus Digest, Vol 21, Issue 14

[Seth Grover]

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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20091002/0ae78c0a/attachment-0004.html>