小弟自行撰寫一元件，主要是要練習用，完整程式碼如下：

unit cusBevel;    interface    uses
  SysUtils, Classes, Controls, ExtCtrls, Graphics;    type
  TcusBevel = class(TBevel)
  private
    AFont: TFont;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    property Font: TFont read AFont write AFont;
  end;    procedure Register;    implementation    procedure Register;
begin
  RegisterComponents('Samples', [TcusBevel]);
end;    end.

小弟發現，新增的 Font 屬性雖然出現在 Object Inspector 中，但卻無法像 TForm.Font 屬性一樣，能夠再展開(如下圖)，想請教大大，該如何達成此種效果？ -------------------------------- 給我一個支點，我可以撐起整個地球

You need to create AFont in the constructor first.

如果你自製的元件,屬性的型態不是簡單型態的話,那麼你必需自行註冊該型態的編輯器,例如你所提到的TFont型態. 你可以看一下online help,在 Component writer's guide的Registering the property editor小節裡有說明.另外,你也可以參考在你安裝的Delphi的目錄裡,有個Source\Property Editors\的目錄,裡面有一些Property Editor的source code 提供給您參考

xBug 你好: 可能有幫助, 參考看看. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=48711

首先感謝各位大大熱心的幫忙，但小弟實在愚昧，試了好久，實在寫不出來我要的結果，所以把原始程式碼 POST 上來，請各位大大幫小弟看看。    

unit UBASE_FORM;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DesignEditors, DesignIntf;    type
  TdbButtons = class(TPersistent)
  private
    FdbFirst  : TToolButton;
    FdbPrior  : TToolButton;
    FdbNext   : TToolButton;
    FdbLast   : TToolButton;
    FdbInsert : TToolButton;
    FdbDelete : TToolButton;
    FdbEdit   : TToolButton;
    FdbPost   : TToolButton;
    FdbCancel : TToolButton;
    FdbRefresh: TToolButton;
  published
    property dbFirst  : TToolButton read FdbFirst   write FdbFirst;
    property dbPrior  : TToolButton read FdbPrior   write FdbPrior;
    property dbNext   : TToolButton read FdbNext    write FdbNext;
    property dbLast   : TToolButton read FdbLast    write FdbLast;
    property dbInsert : TToolButton read FdbInsert  write FdbInsert;
    property dbDelete : TToolButton read FdbDelete  write FdbDelete;
    property dbEdit   : TToolButton read FdbEdit    write FdbEdit;
    property dbPost   : TToolButton read FdbPost    write FdbPost;
    property dbCancel : TToolButton read FdbCancel  write FdbCancel;
    property dbRefresh: TToolButton read FdbRefresh write FdbRefresh;
  end;    type
  TBASE_FORM = class(TForm)
  private
    FModuleID: integer;
    FAutoMargeToolBar: TToolBar;        FdbButtons: TdbButtons;
  published
    property ModuleID: integer read FModuleID write FModuleID;
    property AutoMargeToolBar: TToolBar read FAutoMargeToolBar write FAutoMargeToolBar;        property dbButtons: TdbButtons read FdbButtons write FdbButtons;
  end;      TdbButtonsProperty = class(TClassProperty )//是否繼承自 TClassProperty 就可以了？
    function GetAttributes: TPropertyAttributes; override;
    procedure GetProperties(Proc: TGetPropProc); override;
  end;    procedure Register;    var
  BASE_FORM: TBASE_FORM;    implementation    {$R *.dfm}    procedure Register;
begin
  RegisterCustomModule(TBASE_FORM, TCustomModule);
  RegisterPropertyEditor(TypeInfo(TdbButtons), TdbButtons, 'dbButtons', TdbButtonsProperty);//這樣的語法正確嗎？
end;    { TBASE_FORM }    { TdbButtonsProperty }    function TdbButtonsProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paSubProperties];//此處應包含哪些 TPropertyAttributes
end;    procedure TdbButtonsProperty.GetProperties(Proc: TGetPropProc);
begin
  inherited;
  //此處應如何實做？
end;    end.

-------------------------------- 給我一個支點，我可以撐起整個地球

引言: property Font: TFont read AFont write AFont;

這裡改為property Font;即可

You need to create all the internal objects in your constructor first, e.g. FdbFirst := TToolButton.Create(self)......

試試以下的source code,已經測試過!! >> >>