主窗口关闭问题

[songruily]

有主窗体TMaimForm和菜单导航窗体TMemuForm,当有其它子窗体From1打开时，而当前的活动窗本是TMemuForm，在处理TMaimForm的关闭事件时，要提示先要关闭From1这个窗口，问题一：我用 MsgBoxSel('退出前请先关闭窗口')这个提示，确定时怎么才能把From1窗体调出显示！

[gyk120]

showwindow不行吗？

[songruily]

showwindow如何调用，例如要把From1显示出来！

[kfcoffe]

大致看了下， 在你创建子窗体的时候把对应的窗体对象加入到1个链表中， 当然在你关闭的时候要记得从链表中移除。 当主窗体关闭的 检查此链表是否为空，如果不为空则提示信息并且关闭每个窗口。

[tgbd]

是MDI结构的应用么，如果是的，那很容易判断当前子窗体的数量，然后给出提示。

[浮生若梦_平淡为真]

用模式窗体啊form3:=TForm3.Create(nil);

if (form3.ShowModal=mrOK) then

[金卯刀]

利用screen，就可以了，
參考一下代碼（順手敲打，未經測試）

procedure CheckChildForm;
var
  iFrmCount : Integer;
  CurFrm : TCustomForm;
begin
  CurFrm := nil;
  For iFrmCount:=0 to Screen.Forms.Count-1 do
  begin
    curFrm := Screen.Forms[iFrmCOunt]; 
    if (curFrm is TMainForm) or (curFrm is TMenuForm) then
    begin
      Continue;
    end
    else
    begin
      MsgBoxSel('退出前请先关闭窗口');
      CurFrm.Show; 
      CurFrm.BringToFront;
    end;  
  end; 
end;

[ahjoe]

Form1.BringToFront()