段 段荣誉 Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #1 我用MDI窗口，我想在MDI主窗口中当打开一个子窗口时，当活前如果有活动 的子窗口，就关闭它，我该怎么实现？
向 向红林 Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #2 判断子窗口 if Application.FindComponent('Form1')=nil then form1.colse; 子窗口.pas procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end;
判断子窗口 if Application.FindComponent('Form1')=nil then form1.colse; 子窗口.pas procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end;
C Calvin Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #3 Do you mean close other active child form while you open a child form?
段 段荣誉 Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #4 我的意思是并不知当前的子窗口是那个，当我打开新窗口时就先关掉当前的子窗口.
向 向红林 Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #5 并不知当前的子窗口是那个，//不是DELPHI 是SHELL？？？？ 当我打开新窗口时就先关掉当前的子窗口. 可以打开新窗口时把其他的子窗口全部关闭。 保留新窗口吗。
大 大苹果 Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #6 主： form1.ActiveMDIChild.Close； 子： procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end;
主： form1.ActiveMDIChild.Close； 子： procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end;
段 段荣誉 Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #7 可是没有子窗打开时该怎么叛段呢.用什么方式得知当前没有激活的子窗体？
向 向红林 Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #8 if<Font Color=#FF0000> Application.FindComponent('Form1')=nil </fnt>then form1.colse;
向 向红林 Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #9 if Application.FindComponent('Form1')=nil then //form1 not open 不会.. form1.colse;
