콤포넌트를 만드는 과정에서 프로퍼티의 형을 TControl로 선언하니
폼위에 모든 컴포넌트가 올라 오더군요  여기서 Panel위에 있는 컴포넌트만
열거형 프로퍼티에 나오게 하고 싶어서 방법을 찾고 있습니다.

클래스를 만들어 형을  만든 클래스로  정의하면 될까 하는데
클래스를 만들때 클래스에 컴포넌트들을 삽입시키는 방법을
모르겠습니다. TControl을 선언시 컴포넌트 리스트 들이 나오는데

어떻게 해야 컴포넌트들이 나오는지 잘 모르겠습니다.
클래스에 콤포넌트들을 나오게 하는 방법좀 알려 주시면 감사하겠습나다.

오랜시간을 고생하고 있습니다.  여기저기 돌아다녀도 특별한 해답을
구하지 못하고 있어서 이렇게 질문을 올립니다.  방법좀 알려 주시면
감사하겠 습니다.  예제가 아니더라도 방법만이라도 알려 주시면.....-.-;

아래는 코등중인 소스의 일부분 입니다..


TControlsItem = class(TCollectionItem)
  private
    FComponentNm : TControl;
    FCol: Integer;
    procedure SetCol(const Value: Integer);
    procedure SetComponentNm(Value : TControl);
  public
    constructor Create(Collection: TCollection); override;
    procedure AssignTo(Dest: TPersistent); override;
    function GetDisplayName: string; override;
    destructor Destroy; override;
    procedure UpdateItem(Index: integer);
    procedure UpdateItems;
    procedure AddControlsItem(Value : TControl);

  published
<----------------여기-이부분 입니다.----------------------------------->

    property PsCompontNm : TControl read FComponentNm write SetComponentNm;

   PsCompontNm에 나오는 컴포넌트 리스트를 특정 Panel위에 있는 컴포넌트로 나오게 할려구요..

<------------------------------------------------------------------------>
    property PsCol : Integer read FCol write SetCol default 0;
  end;

//-------------------------------------------
  TControls = class(TCollection)
  private
    FOwner : TPsRealGrid;
    function GetItem(Index: Integer):TControlsItem;
    procedure SetItem(Index: Integer; Value: TControlsItem);
  protected
    function GetOwner: TPersistent; override;
    procedure Update(Item: TCollectionItem); override;
  public
    constructor Create(AOwner: TPsRealGrid);
    function Add: TControlsItem;
    procedure AddControls(Value : TControl);
    property Items[Index: Integer]: TControlsItem read GetItem write SetItem; default;
  end;