去掉 THandleClickEvent= procedure(Sender: TObject) of object; 和HandleClickEvent: THandleClickEvent;
直接声明一个过程: procedure HandleClickEnvent(Sender:TObject); 然后实现这个过程; 以后可以赋值了:SPEEDBUTTON1.OnClick := HandleClickEvent
直接声明一个过程: procedure HandleClickEnvent(Sender:TObject); 然后实现这个过程; 以后可以赋值了:SPEEDBUTTON1.OnClick := HandleClickEvent
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货