On 12/15/15, Aradeonas <[email protected]> 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
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
