有两个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);中那个参数该怎么填?
请各位高手指教!
or
Form2 := TForm2.Create(Self);
or
Form2 := TForm2.Create(nil);