如何设置事件？
private
f : TNotifyEvent;
procedure dotest(sender : tobject);
public
end;
procedure button1onclick(sender: tobject)
begin
if getpropinfo(button2, 'onclick ') <> nil then
setXXXprop(button2, 'onclick ', ????);
end;
-------------------------------
???代表dotest方法，目的是把方法dotest设置到button2的onclick事件上去，方法必须限制使用 setXXXprop 设置属性的方式，因为不能保证button2一定有onclick事件
[解决办法]
setXXXprop(button2, 'onclick ', dotest);
procedure setXXXprop(Button: TButton; NotifyName: String; Event:TNotifyEvent);
[解决办法]
这个?
private
procedure dotest(sender : tobject);
public
end;
procedure button1onclick(sender: tobject)
begin
button2.onclick:=dotest;
end;
[解决办法]
正解
[解决办法]
汗 月亮大哥也分小弟一点米嘛
