关于MDI的问题，分数不是问题

[pladinbabyzby]

我在开发一个MDI系统时发现当父窗体创建后，子窗体也自动创建在父窗体内，使用以下代码仍然不行
procedure TFrmMain.N15Click(Sender: TObject);
var I:integer;
begin
for I:=MdiChildCount-1 downto 0 do
MdiChildren[I].Close;
end;
end;

还要在各个子窗口写入
procedure TFrmchildn.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
Frmchildn:=nil;

end;
有什么办法能在父窗体创建后，不打开子窗体，当我需要时再打开，
很急！！！！请各位大哥帮助，谢谢

[sundayboysII]

天，你发了多少个帖子啊？？？
设置Project－》Option的Form的创建列表，设置它们是自动创建还是手动创建。

不过在用的时候一定要判断一下，如果不存在就手动创建一下。

[zsjzwj]

创建子窗体的代码：

procedure TFormMain.Buttons1Click(Sender: TObject);
var
FForm : TFormRS_PXXX;
begin
FForm := TFormRS_PXXX.Create(self);
FForm.Show;
end;

[sundayboysII]

此贴不要给我分数。

[haipin]

建议用一个基类，在FORMCLOSE的时候加入：
action:=cafree;
Frmchildn:=nil;
其它MDI窗口继承这个基类，新建一个MDI窗口的时候，要判断MDI窗口是否打开，我这里有个函数你用去吧：
procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
var
i: integer;
Child:TForm;
begin
for i := 0 to Screen.FormCount -1 do
if Screen.Forms[i].ClassType=FormClass then
begin
Child:=Screen.Forms[i];
if Child.WindowState=wsMinimized then
ShowWindow(Child.handle,SW_SHOWNORMAL)
else
ShowWindow(Child.handle,SW_SHOWNA);
if (not Child.Visible) then Child.Visible:=True;
Child.BringToFront;
Child.Setfocus;
TForm(fm):=Child;
exit;
end;
Child:=TForm(FormClass.NewInstance);
TForm(fm):=Child;
Child.Create(AOwner);
end;

[angle097113]

我想就是你的project菜单的options属性里把那些子窗体的自动创建去掉就应该没有问题了吧 需要显示的时候再create然后再显示的吧