5,928
社区成员
发帖
与我相关
我的任务
分享大家看看，这样写有什么用
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
xApplication:TApplication;
public
{ Public declarations }
end;
var
Form1,Formx: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
xApplication:=TApplication.Create(self);
xApplication.Initialize;
xApplication.CreateForm(TForm1, Formx);
xApplication.Run;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
xApplication:TApplication;
public
{ Public declarations }
end;
var
Form1,Formx: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
xApplication:=TApplication.Create(self);
xApplication.Initialize;
xApplication.CreateForm(TForm1, Formx);
xApplication.Run;
end;
...全文
请发表友善的回复…
发表回复
zhxfzhxf1 2002-08-24
- 打赏
- 举报
up
iStringTheory 2002-08-24
- 打赏
- 举报
克隆？
shuixin13 2002-08-23
- 打赏
- 举报
建镜像实例？？
