請教一下，我自己設計了一個元件較TMyComp，繼承自 TComponent，是一個非視覺化元件。

並且定義了以下兩個資料型態：
TChkComp = (chkEdit, chkComboBox, chkLael);
TChkCompSet = set of TChkComp;

並且在這個非視覺化元件內定義一個屬性，叫做 CheckComponent :TChkCompSet;
我想要在一開始拖曳TMyComp元件使用時，就能夠看到CheckComponent屬性內已經設定好預設值。
因此我在TMyComp.Create事件內有給定預設值，不過好像都無法達到此功能，
請問是哪邊出問題? 以下為我的程式碼：

<textarea class="delphi" rows="10" cols="60" name="code">Type TChkComp = (chkEdit, chkComboBox, chkLael); TChkCompSet = set of TChkComp; TMyComp = class(TComponent) private FChkComponent :TChkCompSet; publish procedure Create(Aowner :TComponent); published property CheckComponent :TChkCompSet read FChkComponent write FChkComponent default [chkEdit, chkComboBox]; end; procedure TMyComp.Create(Aowner :TComponent); begin inherited Create(Aowner); FChkComponent := [chkEdit, chkComboBox]; end; </textarea>

procedure Create(Aowner :TComponent);

改成如下, 並放在 public 區段:

constructor Create(AOwner: TComponent); override;

謝謝hagar，問題已經解決了~~~~