小弟繼承 TGraphicControl 寫了一個元件,雖然TGraphicControl 已有一個 Font ,但我須要好幾個Font,可惜寫出來的元件在設計時期 就會當機,不知那裡錯了,請各位大大指正,有關 Font 的程式片斷如下: private FMyFont: TFont; procedure SetMyFont(Value: TFont); published property MyFont: TFont read FMyFont write SetMyFont; constructor TMyVcl.Create(AOwner: TComponent); begin inherited Create(AOwner); FMyFont:=TFont.Create; end; procedure TMyVcl.SetMyFont(Value: TFont); begin if Value <> FMyFont then begin FMyFont := Value; Refresh; end; end;

你貼上的class宣告很不完整, 貼上的部分我看是沒什麼問題 繼承 TGraphicControl 重要的是paint Method,至少要看到paint Method,那可能才是當機凡最重要原因

我的 paint Method 跟本還沒有用到 MyFont 這個變數啊, 以上的程式片斷已是所有 MyFont 的程式碼,所謂 "當機" 是,當我 Compile 好後,拉下這個 Vcl 到 Form 中,每當 點到 MyFont 的 porperty 時,就會出現錯誤. 想再請問一下: MyFont 要 Free 嗎? ps.我的 VCL 還在建立所須的 Property 階段.

MyFont:=Value 改成 MyFont.Assign(Value) 就搞定了.