有两个Form:Form1,Fom2。Form1是自动生成的,Form2由Form1在程序运行时Create。请问该怎么做?
我是这样做的:在Form1中加一个Button,在Button的OnClick方法中Create Form2。代码如下:procedure TForm1.Button1Click(Sender: TObject);
var
Form2: TForm2;
begin
Form2.Create();
Form2.Show;
end;现在关键是Form2.Create(AOwner: TComponent);中那个参数该怎么填?
请各位高手指教!
我是这样做的:在Form1中加一个Button,在Button的OnClick方法中Create Form2。代码如下:procedure TForm1.Button1Click(Sender: TObject);
var
Form2: TForm2;
begin
Form2.Create();
Form2.Show;
end;现在关键是Form2.Create(AOwner: TComponent);中那个参数该怎么填?
请各位高手指教!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货