本文整理自网络,侵删。
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利用微软sapi实现语音控制(Delphi,tts,sr,灰色代码)_
Delphi webbrowser1 execwb 复制 新建 打开
Delphi winapi: openprocess、getexitcodeprocess、terminateprocess (qq)
更多相关阅读请进入《Delphi》频道 >>