uses unit2 procedure TForm1.FormShow(Sender: TObject); begin Form2.Show; end;这样不可以吗
uses unit2 //静态 procedure TForm1.FormShow(Sender: TObject); begin Form2.Show; end; //动态创建 procedure TForm1.FormShow(Sender: TObject); begin with TForm2.Create(nil) do begin Show; end; end;
uses unit2
procedure TForm1.FormShow(Sender: TObject);
begin
Form2.Show;
end;这样不可以吗
uses unit2
//静态
procedure TForm1.FormShow(Sender: TObject);
begin
Form2.Show;
end;
//动态创建
procedure TForm1.FormShow(Sender: TObject);
begin
with TForm2.Create(nil) do
begin
Show;
end;
end;