請教各位前輩: 我自己寫一個VCL內容要用到 TCollection 及TCollectionItem 來作可以多個Item , 我看了 TCustomStatusBar 的 Panels 看了好久都看沒有 能否請各位前輩給一個方向還是在那有範例 因 TCustomStatusBar內的程式太多, 不知那一個是必要的 是否有前輩能告知,最主要是那一部份?? 還是能給個方向!! 非常非常的謝謝你,因為有你這世界變的更美好 ☆ ^_^ ☆ °∴°﹒☆°．﹒‧°∴°﹒°．﹒‧°∴°﹒ ﹒‧°∴°﹒☆°．﹒‧°∴°﹒°．﹒‧°∴°﹒﹒‧°∴°﹒☆

delphi vcl的Source是最好的老师。 一般CollectionItem从TCollectionItem继承，要override它的一个function GetDisplayName: string;override;它是在Object Inspector上此Item显示的文字。它的Collection属性可以访问到它在那个Collection里。如：

  TUnReplaceCom=class(TCollectionItem)
  private
  public
    function GetDisplayName: string;override;
  published
  end;

Collection一般从TOwnedCollection继承，为了方便访问Item，一般重写Items,如：

  TReplaceComs=class(TOwnedCollection)
  private
    function GetItem(index: integer): TReplaceCom;
    procedure SetItem(index: integer; const Value: TReplaceCom);
  public
    function FindCom(ACom:TComponent):TReplaceCom;
    property Items[index:integer]:TReplaceCom read GetItem write SetItem;
  end;

使用Collection时，它的Create第二个参数带Item的Class,如：

constructor TAcroMultiReplacer.Create(AOwner: TComponent);
begin
  inherited;
  FReplaceComs:=TReplaceComs.Create(Self,TReplaceCom);

久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人