Komponente erstellen: Untereinträge

[Hawkeye219]

klar, das geht:

Delphi-Quellcode:

property HoverEffect: THoverEffects 
  read FEffects write FEffects default [heColor, heCursor];

Allerdings mußt du diese Werte auch im Constructor setzen! Der bei "property" angegebene Wert dient nur zur Steuerung der Ausgabe in eine .dfm-Datei. Wenn der aktuelle Wert der Eigenschaft dem Standardwert entspricht, wird die Eigenschaft nicht in die .dfm-Datei geschrieben.

Gruß Hawkeye

[Martin K]

Gut, danke!

[Sascha L]

Und wie macht man das nun, wenn man nicht nur boolische Werte hat? D.h. wenn man z.B. TColor, TFont, etc. als Untereinträge haben möchte?

[Hawkeye219]

Hallo Sascha,

TColor ist eigentlich nur ein Integerwert und erfordert keine Sonderbehandlung. Ein TFont-Feld wird im Konstruktor erzeugt und im Destruktor wieder freigegeben. Um Änderungen am Fontobjekt feststellen zu können, kann man eine private Behandlungsroutine für das OnChange-Ereignis einklinken. Bei echten Komponenten als Unterobjekt ist zu beachten, daß nach dem Erzeugen deren Methode SetSubComponent aufgerufen wird, damit sie ihre Eigenschaften in die .dfm-Datei schreiben (siehe hier). Den Umgang mit TColor bzw. TFont schaust du dir am besten im VCL-Quelltext zu TControl an (Constructor/Destructor).

Gruß Hawkeye

[Martin K]

Zitat von Sascha L:

Und wie macht man das nun, wenn man nicht nur boolische Werte hat? D.h. wenn man z.B. TColor, TFont, etc. als Untereinträge haben möchte?

Das müsste doch nach dem Schema von Beitrag #8, 2. Code funktionieren, oder?
Anstatt Boolean dann einfach TColor bzw. TFont als Datentyp angeben....

Oder liege ich da falsch?