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

这里有个关键代码，a:=TForm2.Create(self); --创建新窗口， windows.SetParent(a.Handle,Panel1.Handle ); --设置新窗口的父对象是 Panel1，

这样设置后，新创建出来的窗口就显示在Panel1中了。

关闭子窗体要在 onClose 里设置 action:=caFree; --fsMdiform和fsMdiChild模式下，子窗口都是这样关闭。

追问

我不是问如何创建窗体和关闭窗体，我是问怎么写触发事件的，现在我用消息解决了！没问题了！

Answer 2

没有这么复杂吧，指定一个窗体为父窗体，然后再将其它窗体设置为子窗体，这些都是通过窗体的属性设置的，无须写什么代码。子窗体总是在父窗体上面，这时父窗体只是一个容器，容纳子窗体而已。子窗体也不能移动到父窗体之外去。

追问

设置子窗体是不用那么复杂啊，我想做的是当子窗体关闭时关闭pageControl的一个Tabsheet,所以要能控制父窗体的组件啊

追答

你看过OFFICE的图片编辑器吧，那就是一个标准的父子窗体样版，在主窗口中打开一张图片就创建了一个子窗体。父窗体除了菜单栏和工具栏之外，它是没有其它实质性功能的。