Default Property-Werte werden nicht gespeichert, Inherited Forms

[DSCHUCH]

Hallo,

hab gerade folgendes Problem: Komponente, Abgeleitete Form (mittels inherited im dfm), default Property Werte

Componente->Default Property X Boolwert=False.
Grundform ->Parentform für alle: Componente Property X wird auf true gesetzt.
Ableitung#1->Spezialfall: Componente Property X wird auf false gesetzt.

Delphi speichert das dann nicht. Hintergrund ist sicherlich das durch die Vererbung einmal true, einmal false der Defaultwert ist und somit nichts mehr gespeichert wird.

Kennt das jemand, habt Ihr eine Idee wie man es umgehen kann? PS- die Komponente selbst kann ich nicht ändern, ist ein Oberflächenelement.

Evtl. kann man das Verhalten abschalten, das er die Default werte im dfm weglässt -> wenn immer alle Propertywerte gespeichert würden, wäre es iO.

Daniel.

[shmia]

Bei einem Defaultwert für ein Property reicht es nicht aus, diesen Defaultwert nur zu deklarieren.
Zusätzlich muss dieser Defaultwert auch noch im Konstruktor gesetzt werden:

Delphi-Quellcode:

TTestKlasse = class(TComponent)
...
public
  constructor Create(AOwner:TComponent);
published
  property Anzahl:Integer read FAnzahl write FAnzahl default 42;


constructor TTestKlasse.Create(AOwner:TComponent);
begin
  inherited Create;
  // ohne folgende Anweisung funktioniert es nicht !!!
  Anzahl := 42;

Hast du das bei deinem Code berücksichtigt?