如何使用OnGetColors事件向TColorBox添加自定义颜色？

Question

我正在使用TColorBox组件的OnGetColors事件,但我无法弄清楚如何使用Event的item参数的Items属性添加新颜色.

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

我如何使用Items属性向TColorBox添加新颜色？

Answer 1

你必须使用AddObjectItems对象的方法,如下所示:

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