我有自訂一個 Class 其中一個欄位 PIC 為 TPicture 的 type 但是在 design time 加入到 Form 上時, 都會有 AccessViolation.... 而且 property editor 上, PIC 的值那格出現怪圖樣... 請問是少寫了什麼嗎? 為什麼不會像 TImage 的 Picture 一樣出現 [...] 的按鈕ㄋ? TImage 的 source 裡的 .Create , 也只有寫到 FPicture := TPicture.Create 而已啊, 為什麼就可以 work? 程式摘錄如下 type TTest = class(TControl) private FmyPIC: TPicture procedure SetPic(Value: TPicture); public constructor Create(AOwner: TComponent); published property PIC: TPicture read FmyPIC write SetPic; end; implementation constructor TTest.Create(AOwner: TComponent); begin inherited; FmyPIC := TPicture.Create; end; procedure TTest.SetPIC(Value: TPicture); begin FmyPIC .Assign(Value); end;

加上紅色部份試試:

type
  TTest = class(TControl)
  private
    FmyPIC: TPicture
    procedure SetPic(Value: TPicture);
  public
    constructor Create(AOwner: TComponent); override
  published
    property PIC: TPicture read FmyPIC write SetPic;
  end;

--- 將進酒 杯莫停