不可以吗?消息处理语句应该是窗口控件都能加的吧,只不过,因为tform的特殊,给它加好理解一点而已。
type
tbutton1=class(tbutton)
..
private
procedure WMActivate(var M:TMessage);message WM_ACTIVATE;
..
tform1=class(tform)
....
然后,在适当的时候创建tbutton1就可。
type
tbutton1=class(tbutton)
..
private
procedure WMActivate(var M:TMessage);message WM_ACTIVATE;
..
tform1=class(tform)
....
然后,在适当的时候创建tbutton1就可。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货