Property zu abgeleiteter Klasse hinzufügen

[gkoeder]

Hallo!

Ich möchte eine von tCustomListView abgeleitete ListView erstellen. Bislang klappt auch alles sehr gut, nur stehe ich beim hinzufügen eines simplen Properties ziemlich auf dem Schlauch. Die Deklaration sieht folgendermaßen aus:

Delphi-Quellcode:

type
  tArchiveListView = class(tCustomListView)
  private
    FUseSystemFont: Boolean;
    ...
  public
    constructor Create(AOwner: TComponent); override;
  published
    ...
    property UseSystemFont: Boolean read FUseSystemFont write FUseSystemFont;
  end;

constructor tArchiveListView.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  If fUseSystemFont then
    ApplyExplorerFont(Font);
end;

UseSystemFont ist im ObjektInspektor sichtbar und kann auch gesetzt werden. Irritierenderweise ist der Wert von fUsesystemFont zur Laufzeit immer False, unabhängig davon, ob ich diesen vorab im ObjektInspektor auf True gesetzt habe.

Wird die neu erstellte Komponente auf einem Form verwendet, so wird der Wert korrekt in den Objektdaten des Forms gespeichert:

Delphi-Quellcode:

  
  ...
  object tArchiveListView1: tArchiveListView
    Left = 20
    Top = 20
    Width = 453
    Height = 477
    TabOrder = 4
    ViewStyle = vsReport
    UseSystemFont = True
  end

Leider ist auch hier bei jedem öffnen des Projekts die Eigenschaft wieder auf False gesetzt.

Wie gesagt, ich stehe gerade ziemlich auf dem Schlauch - hat jemand eine Idee, wo der Fehler liegt bzw. wie ich diese eigentlich relativ einfache Eigenschaft korrekt implementiere?

Danke!

Gruß,
Gerald

[jfheins]

Logisch - die property kann ja erst mit einem Wert belegt werden, nachdem der Konstruktor aufgerufen wurde

[gkoeder]

Zitat von jfheins:

Logisch - die property kann ja erst mit einem Wert belegt werden, nachdem der Konstruktor aufgerufen wurde

Hmm ... das klingt logisch. Wie bzw. wo sollte dann die korrekte Implementierung erfolgen?

Dankeschön!

[Hawkeye219]

Hallo Gerald,

nach dem Laden einer Komponente aus der .dfm-Datei ruft die VCL die Methode Loaded für diese Komponente auf. In diesem Beitrag findest du ein Beispiel für das Überschreiben der Methode.

Gruß Hawkeye

[gkoeder]

Zitat von Hawkeye219:

Hallo Gerald,

nach dem Laden einer Komponente aus der .dfm-Datei ruft die VCL die Methode Loaded für diese Komponente auf. In diesem Beitrag findest du ein Beispiel für das Überschreiben der Methode.

Gruß Hawkeye

Super! Danke, das hat das Problem gelöst!

Gruß,
Gerald