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的程序应该都可以使用。