小弟我近日初学delphi，在编写子母窗体（MDI）的时候遇到了点困难，望各位高手给予帮助啊！
1、我编写的程序有一个主窗体（也就是父窗体），两个available窗体（就是子窗体），在单击两个按钮后，分别弹出这两个子窗体。在两个子窗体中分别各添加一个“退出”按钮，按钮对应的代码为均为close；但是每次单击了“退出”按钮它总是最小化，而并不是关闭了窗体。
2、如果在两个子窗体没有关闭的条件下再单击主窗体上的弹出子窗体的按钮，它还会弹出同样的窗体，按一次弹出一个，我希望在如果没有关闭子窗体的条件下单击弹出子窗体的按钮的话，还是弹出原来的那个窗体，而不是又弹出一个新的窗体。
这个问题对于各位高手来说可能是小菜，希望大家能帮我解决这个问题，谢谢了！

我並沒有發現你說的問題

你可以將子窗体寫成 form2.ShowModal;然後你在式式

好像还是不行啊！

子窗体的关闭与一般窗体不同，在 onclose 事件有一个 VAR 参数，需要设为 TRUE 值。
关于第二个问题，你可以设一个全局变量检测，子窗体的作用就是可以开很多个的啊！

[此贴子已经被作者于2005-12-6 10:46:26编辑过]

谢谢楼上的！第一个问题已经解决了！多谢了！

with frmmain do
for i:=MDIChildCount-1 downto 0 do
MDIChildren[I].Close;

makebest说：子窗体的关闭与一般窗体不同，在 onclose 事件有一个 VAR 参数，需要设为 TRUE 值。

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
这里的var参数是TCloseAction类型的，不能设置为true啊

请问这个问题到底是怎么解决的呢？

哦，明白了，应该设为cafree

还有一个问题，如果把action设为cafree的话，第二次就打不开了：
比如我在母窗体中设置了一个按钮，用于打开子窗体；
首先我把子窗体关了；
然后单击按钮打开子窗体时，就出错了

请问这个应该如何解决啊？

你可以设置一个全局变量 ，用来控制子窗体的打开和关闭，老师上课是这么讲的
具体的忘了