コンポーネントプロパティの初期値を取得する方法は？

Question

デフォルト値50のColumnWidthというプロパティを含むコンポーネントの例を見てみましょう。設計時に値を100に変更してから、アプリケーションをコンパイルします。

今度は、私のコンポーネントの中にReset to default（ポップアップメニュー）ボタンを実装して、ColumnWidthを値100に初期化したいと思います。コンポーネントメソッドの下

TMyComponent = class(TComponent) 
    private 
    FVirtualStringTree: TVirtualStringTree; 
    FColumnWidth: Integer; 
    FColumnWidthDef: Integer; 
    public 
    constructor Create(AOwner: TComponent); override; 
    destructor Destroy; override; 
    procedure ResetToDefault; 
    published 
    property ColumnWidth: Integer read FColumnWidth write SetColumnWidth default 50; 
    property VirtualStringTree: TVirtualStringTree read FVirtualStringTree write FVirtualStringTree; 
    end; 

constructor TMyComponent.Create(AOwner: TComponent); 
begin 
    inherited; 
    FColumnWidth:= 50; 
end; 

destructor TMyComponent.Destroy; 
begin 
    inherited; 
end; 

procedure TMyComponent.SetColumnWidth(const Value: Integer); 
begin 
    if FColumnWidth <> Value then FColumnWidth:= Value; 
end; 

procedure TMyComponent.ResetToDefault; 
begin 
    ColumnWidth:= FColumnWidthDef; 
end; 

、どのように私はColumnWidthの初期値を保存することができますか？

Answer 1

値100は、コンポーネントが存在するフォーム、フレーム、またはデータモジュールのDFMリソースに格納されているため、コンポーネント内部では使用できません。悲しいかな、後でDFMからその値を読み返すのは面倒かもしれません（可能ではありますが）。したがって、FormCreateイベント中にフォームフィールドに値を保存し、後でこのコンポーネントプロパティを保存された値にリセットする方が便利です。