delphi Parent属性的另类用法


本文整理自网络,侵删。

 Parent属性是用来控制控件的显示层次的,所有的TWinControl都有Parent属性,包括TForm。如果你设置TForm的Parent的为一个Panel,在整个Form就嵌入到Panel里了。 

举一个应用的例子,假设你有一个配置界面,一个有很多Page的PageControl, 又假设每个Page的逻辑不太相干,如果所有代码都写在同一个单元里,读起来就很吃力。可以利用Form的Parent属性给每个Page都创建一个Form,然后把Form嵌入到Tabsheet中,这样PageControl仅是一个壳,每个Page的代码都是独立的。同样的原理很容易实现Tab标签类的结构。

实际应用中可以去掉嵌入Form的边框,如下面的构造器:

constructor TTAppBasicForm.CreateNestedForm(AOwner: TComponent; Container: TWinControl);
begin
  inherited Create(AOwner);
  Parent := Container;
  BorderStyle := bsNone;
  WindowState := wsMaximized;
end;

这个技巧应该不限于Delphi,所有的基于Windows API的程序应该都可以使用。

相关阅读 >>

Delphi 删除字符串重复的符号只保留一个

Delphi获取jpg、gif、png等格式图片的大小(高度和宽度)

Delphi xe5 与其他版本共存

Delphi应用程序 paramstr()带有参数

Delphi winsock 域名获取远程服务器ip

Delphi屏蔽win、ctrl_esc、alt_tab、alt_f4等键(windows xp、windows 2003 server下测试通过)

Delphi中始终用webbrowser打开网页

Delphi android 关闭应用程序对话框询问

Delphi 10.4 freeandnil 问题

线程池的概念

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...