Наследование TColorBox

[Darlee]

Добрый вечер.
Хочу наследовать компонент ColorBox. Как сформировать в потомке свой список цветов? Какой метод надо переопределить для этого?

[Jaguar83]

Зачем тебе наследовать компонент? Можно обойтись без этого.
Если хочешь, чтобы в списке были только твои цвета сделай так:

ColorBox1.Style:=[cbCustomColor];
ColorBox1.Items.AddObject('Wow!..Cool Color!',TObject($FFEE88));

[Darlee]

Просто у меня несколько таких списков на форме, не хочу для каждого писать код.

[Darlee]

В общем - благодарю, я сама все написала.
Если что:

procedure TMyColorBox.NewListColor;
const C:Array [0..10] of TColor=(clBlack,clGreen,clTeal,clRed,clLime,clYellow,clBlue,clFuchsia,clSkyBlue,clAqua,clMenuHighlight);
var k,k1:word; Pr:boolean;
begin

for k := Items.Count - 1 downto 0 do
begin
Pr:=true;
for k1 := 0 to 10 do
if (Colors[k] = C[k1]) then Pr:=false;
if pr then
items.Delete(k);
end;
ItemIndex := 0;

end;