procedure TForm1.ToolButton5Click(Sender: TObject); begin Tform1.create(self).show; end;
uses Unit1; 如果该窗体在工程文件中已经create了,那么,可以直接: procedure TForm1.ToolButton5Click(Sender: TObject); begin Form1.Show; end; 否则,得先create procedure TForm1.ToolButton5Click(Sender: TObject); begin Application.CreateForm(TForm1, Form1); Form1.Show; end;
尽量不要使用Application.CreateForm(TForm1, Form1); 来创建,侯捷的书中专门提到过这个问题,应该这样 with TForm1.Create(nil) do begin try ShowModal; finally FreeAndNil(Form1); end; end;
begin
窗体.Show;
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
窗体.Show;
end;否则,得先create
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
Application.CreateForm(窗体类名, 窗体实例名);
窗体.Show;
end;
窗体.Show;
begin
Tform1.create(self).show;
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
Form1.Show;
end; 否则,得先create
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);
Form1.Show;
end;
with TForm1.Create(nil) do
begin
try
ShowModal;
finally
FreeAndNil(Form1);
end;
end;