Wie erhält man den Anfangswert einer Komponenteneigenschaft?

Question

Nehmen wir ein Beispiel für eine Komponente, die eine Eigenschaft namens ColumnWidth mit dem Standardwert 50 enthält. Während der Entwurfszeit ändere ich den Wert auf 100 und kompiliere dann die Anwendung.

Jetzt möchte ich eine Reset to default (Popup-Menü) Schaltfläche innerhalb meiner Komponente implementieren, die die ColumnWidth auf Wert 100 initialisiert, falls der Benutzer es in der Zwischenzeit ändern.

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; 

Unter den Komponentenmethoden, wie kann ich speichern den Anfangswert von ColumnWidth?

Answer 1

Der Wert 100 ist in der Komponente nicht verfügbar, da er in der DFM-Ressource des Formulars, Frames oder Datenmoduls gespeichert ist, in dem sich die Komponente befindet. Leider kann es mühsam sein, diesen Wert später erneut aus dem DFM zu lesen (obwohl dies möglich ist). Daher sollten Sie den Wert in einem Formularfeld während des Ereignisses FormCreate speichern und später verwenden, um diese Komponenteneigenschaft auf den gespeicherten Wert zurückzusetzen.