Am 27.03.2012 19:23, schrieb Everton Vieira:
Well, i manage to 'find' the procedure now is giving the SIGSEV when
is executed.
For the MethodAddress finds was need to be published.
Note: It is sufficient if you enabled $M only for specific classes.
Descendents of TPersistent (e.g. TControl, TComponent, TForm, etc) all
have it enabled by default.
E.g.
{$M+}
TTeste = class
end;
{$M-}
Also your code is wrong. You wrote:
Proc := TProc(Sender.MethodAddress('Proc')^);
but it should be
Proc := TProc(Sender.MethodAddress('Proc'));
Note the missing "^"! (a procedural variable IS a method address)
Regards,
Sven
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
