Question

有空delphi子窗体关闭触发父窗体做出一系列改变的操作，主要就是子窗体关闭时能改变父窗体组件状态

以下内容有谁看懂的，是在人家博客上看到的，那个在子窗体内新加一个类应该写在哪里？每句代码应该写的具体位置麻烦能看懂的人帮我说说，有自己想法的也可以说说！麻烦了！
delphi 里的mdi 子窗口始终在最底层，父窗口的控件始终在子窗口之上，子窗口上的控件被遮挡，看起来很别扭。

有两种解决办法。一种是把父窗口的formstyle :=fsMdiform; 子窗口 formstyle :=fsMdiChild;在父窗口里放置一个panel1 和父窗口尺寸一样大。在把父窗口的控件都放在这个panel1上。在设置子窗口的的父类是panel1.
这里有个关键代码，a:=TForm2.Create(self); windows.SetParent(a.Handle,Panel1.Handle );
经过这种设置后，产生的子窗体就在最上了。关闭子窗体要在 onClose 里设置 action:=caFree; 如果要通知父窗体子窗口已关闭，可以在子窗体里设计一个自定义类。type TshowEvent = procedure(show: bool) of object;
在窗口类定义里 private FshowEvent: TshowEvent;
public property onShowEvent: TshowEvent read FshowEvent write FshowEvent;
在子窗体里 onClose 里 if Assigned(onShowEvent) then onShowEvent(true);
在父窗体窗口类里 procedure showMessage(show:bool);
Form1.showpage(show: bool);
begin
if show then //接到子窗口的关闭通知

end

Answer 1

子窗体执行某动作时，向主窗体发送消息，主窗体在消息中作出相关的反应。

追问

那主要是主窗体怎么在消息中做出相应的反应呢？麻烦跟我说一下，该把代码写在哪里呢？

Answer 2

子窗体关闭时调用主窗体 Main_frm.

追问

怎么调用，可以说清楚点吗？主窗体本来就是没有隐藏的，MDI主窗体来的？如果懂的话，请麻烦你说清楚一下，不胜感激！

追答

比喻
你在关闭子窗体时启用Timer1,你可以在Timer1里写事件。方法好多的。
主要你子窗体要引用主窗体就可以了。

主窗体.Timer1.Enabled:=true;
close;