On 12/15/15, Aradeonas <aradeo...@operamail.com> wrote:
>> procedure notievent(Sender: TObject); begin WriteLn('test'); end;
Create a class with a procedure notievent,simple as that.
type
TDummy = class;
procedure notievent(Sender: TObject);
end;
....
var
Dummy: TDummy;
begin
Dummy := TDummy.Create;
b := Tbook.Create;
b.noti := @Dummy.notievent;
b.Free;
Dummy.Free;
end.
Something like that (untested code).
Or define a
type
TNotifyProc = procedure(Sender: TObject);
(Which the will not be of type TNotifyEvent)
Bart
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
