你自己制定好一个Form表单,然后在项目文件中的将 Application.CreateForm(TForm1, Form1);
类似的那一行去掉,Form为你的表单名,你看哪一个相同就去掉它.
然后在你要生成表单的地方如下写:
if not Assigned(FrmMould) then
FrmMould:=TFrmMould.Create(Application);
FrmMould.Show
即可,这儿假定你的表单名为FrmMould.你的表单本身就会保存成文件,所以不用担心保存的
问题.
在你的工程文件中把
Application.CreateForm(TForm1, Form1);
去掉，
第二，在需要动态创建窗口的地方加入以下代码
var
Form1:TForm1;
begin
if Form1=nil then
begin
try
Form1:=TForm1.create(nil);
Form1.showmodal;
finally
Form1.free;
end;
end;
