Es macht auch Sinn, das in ein Control (sichtbare Komponente) zu packen.
Die dargestellten Items beinhalten dann nur die benötigten Daten für die Anzeige:
Delphi-Quellcode:
TFooItem = class
published
property Color: TColor;
property Text: string;
property Hint: string;
end;
Das Control selber liefert einem das aktuell gewählte Item bzw. das Item, was sich unter der Maus befindet (was halt benötigt wird).
Um jetzt einen Chip anzuzeigen leitet man sich ein entsprechendes Item ab:
Delphi-Quellcode:
TChipItem = class( TFooItem )
...
end;
und befüllt intern die Eigenschaften.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)