Delphi XE2在運行時不考慮組件屬性

Question

我正在開發一個組件，但我無法讓它考慮在設計時設置的屬性。

以下是組分的摘錄：

TRVEditFrame = class(TFrame) 
... 
    private 
    { Private declarations } 
     FRVEditor:TCustomRichView; 
    public 
    { Public declarations } 
     constructor Create(AOwner: TComponent); override; 
    protected 
     function GetRVEditor:TCustomRichView; 
     procedure SetRVEditor(Editor:TCustomRichView); 
    published 
     property RVEditor:TCustomRichView read GetRVEditor write SetRVEditor; 
    end; 
... 

constructor TRVEditFrame.Create(AOwner: TComponent); 
begin 
    inherited Create(AOwner); 
    SetRVEditor(FRVEditor); 
... 
end; 


function TRVEditFrame.GetRVEditor:TCustomRichView; 
begin 
    Result:=FRVEditor; 
end; 


procedure TRVEditFrame.SetRVEditor(Editor:TCustomRichView); 
begin 
    if Assigned(Editor) then begin 
     FRVEditor:=Editor; 
    end; 
end; 

我可以註冊該組件，將其置於療法形式，以及取決於設計時設定FRVEditor。

問題是當我運行應用程序時SetRVEditor（）中的代碼沒有執行，因爲Editor = nil。

如果我能夠在設計時設置FRVEditor，那麼它是如何在運行時間=零？我怎樣才能解決這個問題 ？

---

我在這裏添加我進一步的評論，因爲對此的解釋是太長

@Kenneth，感謝您的回覆

• TCustomRichView是管理 超文本的第三部分組件集的一部分文件，並有4個更專業的後代，你是 是正確的，TCustomRichView不應該在真正的應用程序中使用。
• TRVEditFrame是我正在開發的組件。

我的組件背後的想法是用菜單，快捷方式，彈出菜單等來創建一個單一框架（因此組件TFrame的選擇）來管理每個TCustomRichView後代。

這正是我使用TCustomRichView的原因：我可以將4個後代中的任何一個「插入」我的組件框架。這與TDatasource的原理相同，可以與TTAble和TQuery連接（它們具有相同的祖先）。

我想爲什麼VCL沒有將RVEditor鏈接到我在設計時設置的TCustomRichView後代，原因是TFrame沒有OnCreate事件，例如TForm。

到目前爲止，我設法通過在主持TRVEditFrame的TForm.OnCreate中手動調用TRVEditFrame.SetRVEditor來解決問題，但我想知道是否有更好的方法來做到這一點，這就是爲什麼我在這裏提出建議的原因。

我知道你也可以爲TFrames創建一個OnCreate事件，也許我可以將TRVEditFrame.SetRVEditor放在那裏，但是，我想知道是否有更好的方法。

關於您評論的最後部分，我瞭解註冊程序，但考慮到組件正在開發中。當我開發組件時，我從來不會將它們安裝在IDE中，因爲我寧願將測試內容保留在「官方」之外。 我使用這種方法，只要組件準備就緒，我就會將其註冊到您提到的程序中。如果我想對同一個組件實現其他功能，我可以在測試環境中工作，並繼續使用IDE中的「官方」功能。

Answer 1

我的建議是更改設計，以便通過使用通知方法來引用自定義編輯器的框架組件，而不是手動設置屬性。所以，你的框架類改爲

TRVEditFrame = class(TFrame) 
... 
private 
{ Private declarations } 
    FRVEditor: TCustomRichView; 
protected 
    procedure Notification(aComponent: TComponent; aOperation: TOperation); override; 
public 
{ Public declarations } 
    constructor Create(AOwner: TComponent); override; 
public 
    property RVEditor:TCustomRichView read FRVEditor; 
end; 

通知方法的實現確實連接/斷開幀的自定義編輯器

procedure TRVEditFrame.Notification(aComponent: TComponent; 
            aOperation: TOperation); 
begin 
    inherited; 
    if aComponent is TCustomRichView then 
    if aOperation=opRemove then begin 
     if aComponent=FRVEditor then 
     FRVEditor := nil; 
    end else 
     FRVEditor := TCustomRichView(aComponent); 
end; 

我不知道如果你需要任何特殊的魔力當編輯器被設置/重置爲框架時處理，所以這個代碼不做任何特殊處理，只是在適當的時刻將組件或零分配給FRV​​Editor數據成員。

Answer 2

您應該創建子組件。

constructor TRVEditFrame.Create(AOwner: TComponent); 
begin 
    inherited; // Create(AOwner); 
    FRVEditor := TRichView.Create(self); 
end; 

DFM流引擎可以加載已創建類的屬性，但不能有兩個理由爲你創建類：

1）DFM不知道任何特殊的調整來完成創建的組件上，像什麼應該是構造函數參數（如果有的話），使用什麼構造函數（很多），哪些niotifications和事件處理程序要附加等等。

2）DFM無法知道屬性應屬於哪種類型。例如，我發佈了TStrings oroperty - 應該創建哪個類的對象感覺？ TStrings？ TStringList？ TRichEditStringList？ THashedStringList？它們都是從TStrings繼承而來，因此它們中的任何一個都是DFM的不錯選擇 - 但不適用於您編寫的ocmponent。

因此，DFM流式子系統負責保存和加載對象的屬性，但創建這些對象純粹是您的責任。

---

我相信你也可以通過學習IDE設計師如何創造你的形式，使RVEdit一個變量而不是財產切邊角：

TRVEditFrame = class(TFrame) 
... 
    public 
    { Public declarations } 
     constructor Create(AOwner: TComponent); override; 
    published 
     var RVEditor:TCustomRichView; // just like users' forms are created by IDE 
    end; 

然後希望TFrame構造函數創建的內容這個變量爲你。但是這種設計很脆弱，因爲任何外部代碼都可以通過任何愚蠢的錯誤來做出類似MyEditFrame.RVEditor := ...的事情，並且導致內存泄漏和編輯器和框架之間所有連接連接的意外故障。