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屬性清單竟然能夠列出它本身的控制項。
不過想解決很容易，自己去做一個屬性編輯器就行了。