對Delphi控件的一點改良（三）

　　Parent屬性的應用。大家常常忽視Parent屬性的存在。那好就讓他發發威吧。

　　看看這個好東東：

　　unit Edit1;

　　interface

　　uses
　　  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

　　type
　　  TSParent = class(TEdit)
　　  private
　　    { Private declarations }
　　  protected
　　    { Protected declarations }
　　  public
　　    { Public declarations }
　　  published
　　    { Published declarations }
　　    property Parent;
　　  end;

　　procedure Register;

　　implementation

　　procedure Register;
　　begin
　　  RegisterComponents('Samples', [TSParent]);
　　end;

　　end.

　　安裝這個控件。新建一個工程。

　　在Samples頁上拖拽一個TSParent控件。你會說這不就是一個TEdit控件嗎？

　　你再看看，他多出了一個Parent屬性。這下可了不得了，它的容器竟可以在設計期間隨意制定，不管別的控件有沒有容器屬性他都能夠把它當作容器。TPanel、TEdit、TMemo她簡直像一個無處不能存在的魔鬼。

　　該控件有兩個缺點。1）Parent屬性列表中不能列出Form。原因嗎自己去想。2）Parent屬性列表竟然能夠列出它本身的控件。

　　不過想解決很容易，自己去作一個屬性編輯器就行了。