delphi mdi 窗口的总结

本文介绍了在Delphi中MDI子窗口总是显示在底层的问题及其解决方案。通过设置父窗口的FormStyle为fsMDIForm,子窗口的FormStyle为fsMDIChild,并将子窗口的父类设置为一个覆盖父窗口的Panel,可以解决子窗口控件被遮挡的问题。另外,通过调整Windows.SetParent()函数,可以确保子窗口显示在最上方。此外,文章还提到了另一种不改变FormStyle的内嵌子窗口方法。
摘要由CSDN通过智能技术生成

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 );

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值