G
gongmk
Unregistered / Unconfirmed
GUEST, unregistred user!
我建了一个主FORM(formstyle: MDIForm), 若干个子FORM（formstyle: MDICHILD）。
问题是，为什么在运行时这些子FORM都自动创建并显示？求解。
问题是，为什么在运行时这些子FORM都自动创建并显示？求解。
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
S
SEVN
Unregistered / Unconfirmed
GUEST, unregistred user!
在项目的选项里面可以设置，那些窗体自动生成！
W
WiseAnt
Unregistered / Unconfirmed
GUEST, unregistred user!
打开你的工程，并设置其Options选项(菜单操作：Project->Options...)，
在弹出的对话框中切换到Forms页，将你不想让其自动创建的窗口从auto-create forms列表转移到Available forms中，重新编译！
在弹出的对话框中切换到Forms页，将你不想让其自动创建的窗口从auto-create forms列表转移到Available forms中，重新编译！
T
tjlys
Unregistered / Unconfirmed
GUEST, unregistred user!
project ->options
在main form中选择你的主窗体
auto-create forms 中是你要自动显示的窗体，
available中是不自动创建的窗体
在main form中选择你的主窗体
auto-create forms 中是你要自动显示的窗体，
available中是不自动创建的窗体
沙
沙_儿
Unregistered / Unconfirmed
GUEST, unregistred user!
这也给100分，答案同上，分分吧～
Y
YFeral
Unregistered / Unconfirmed
GUEST, unregistred user!
不必那么麻烦：
打开程序的源代码，即Project单元。把那些形如：
Application.CreataForm(TForm1, Form1);的代码去掉只保留创建MDI主窗体
的代码即可，这里与菜单选项是同步的不过这里方便快捷。
打开程序的源代码，即Project单元。把那些形如：
Application.CreataForm(TForm1, Form1);的代码去掉只保留创建MDI主窗体
的代码即可，这里与菜单选项是同步的不过这里方便快捷。
J
jomee
Unregistered / Unconfirmed
GUEST, unregistred user!
这样可以在运行时显示出来：
var
Form2:Tform
begin
Form2:=TForm.Creata(self);
Form2.show;
end;
var
Form2:Tform
begin
Form2:=TForm.Creata(self);
Form2.show;
end;
Y
YFeral
Unregistered / Unconfirmed
GUEST, unregistred user!
想显示时，也不必楼上的那么麻烦，应该这样：
if not Assigned(Form1) then
Application.CreatForm(TForm1, Form1);//当然要包含单元了。
Form1.Show;
为了实现不重复建窗体，应如下所做：
MDI child的Close里：
begin
Action := caFree;
Form1 := nil;//不要搞错了，Form1要替换成你的MDI child.
end;
if not Assigned(Form1) then
Application.CreatForm(TForm1, Form1);//当然要包含单元了。
Form1.Show;
为了实现不重复建窗体，应如下所做：
MDI child的Close里：
begin
Action := caFree;
Form1 := nil;//不要搞错了，Form1要替换成你的MDI child.
end;
D
dlink
Unregistered / Unconfirmed
GUEST, unregistred user!
这样可以在运行时显示出来：
var
Form2:Tform
begin
if Form2=nil then
Form2:=TForm.Creata(self);
Form2.show;
end;
var
Form2:Tform
begin
if Form2=nil then
Form2:=TForm.Creata(self);
Form2.show;
end;
S
shbjkl
Unregistered / Unconfirmed
GUEST, unregistred user!
to： Yferal
同意你的做法，最好 form1:=nil 放在destory 里
同意你的做法，最好 form1:=nil 放在destory 里
傻
傻的惊动党
Unregistered / Unconfirmed
GUEST, unregistred user!
同意：WiseAnt
D
dragon123
Unregistered / Unconfirmed
GUEST, unregistred user!
不用那么麻烦，就用winseant的方法就行，点菜单Project->Options，切换到Forms页，
将你不想让其自动创建的窗口从auto-create forms列表转移到Available forms中即可。
将你不想让其自动创建的窗口从auto-create forms列表转移到Available forms中即可。
L
ljy_17
Unregistered / Unconfirmed
GUEST, unregistred user!
樓上所說都正確…………
Y
YFeral
Unregistered / Unconfirmed
GUEST, unregistred user!
to shbjkl：
我有我的道理，放在Close中便于集中管理，调试。分开了不好维护。懂不懂？
我有我的道理，放在Close中便于集中管理，调试。分开了不好维护。懂不懂？
Y
YFeral
Unregistered / Unconfirmed
GUEST, unregistred user!
to All：
凭本人的经验，用 Option选项光等就得2分钟左右。并且顺序它不给你调整
用Project 单元最方便快速！
凭本人的经验，用 Option选项光等就得2分钟左右。并且顺序它不给你调整
用Project 单元最方便快速！
G
gongmk
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢各位。
Y
YFeral
Unregistered / Unconfirmed
GUEST, unregistred user!
靠！这不打击人吗？没有功劳也有苦劳呀，为什么一分也没有：（
B
bernhn
Unregistered / Unconfirmed
GUEST, unregistred user!
就按WiseAnt说的做吧！没错的！