Tmyclass = class(TObject)
procedure onclick(sender:tobject);
.............
var
myclass: Tmyclass;//myclass := Tmyclass.create;这一句好像不写也可以啊
mybutton1.onclick = myclass.onclick;
procedure onclick(sender:tobject);
.............
var
myclass: Tmyclass;//myclass := Tmyclass.create;这一句好像不写也可以啊
mybutton1.onclick = myclass.onclick;
我现在是这样的.因为封装在同一个类initialization
myclass:= Tmyclass.Create;