摘要:
写了一个测试代码, 创建一个窗体拉上一个按钮控件,复制以下的代码unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;C1=class//(TPersistent) pr 阅读全文