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 

第二种 是不用设置窗体的 FormStyle 直接设置另一个窗口为子窗口。

   Application.CreateForm(Tform3,form3 );
   windows.SetParent(Form3.Handle,Form1.Handle);
  form3.show;

这种有个好处，不用设置panel1,但这窗体是窗口内嵌方式。