Как я могу добавить собственный цвет в TColorBox, используя событие OnGetColors?

Question

Я использую событие OnGetColors компонента TColorBox , но не могу понять, как добавить новые цвета, используя свойство Items параметра item события.

procedure (Sender: TCustomColorBox; Items: TStrings) of object;

Как мне добавить новые цвета в TColorBox, используя свойство Items?

Answer 1

вы должны использовать метод AddObject объекта Items, например:

procedure TForm1.ColorBox1GetColors(Sender: TCustomColorBox; Items: TStrings);
begin
   Items.AddObject('clWebSnow',TObject(clWebSnow));
end;