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

Question

我正在使用 OnGetColors 事件“http://docwiki.embarcadero.com/Libraries/en/Vcl.ExtCtrls.TColorBox”rel="noreferrer">TColorBox 组件，但我不知道了解如何使用事件的 item 参数的 Items 属性添加新颜色。

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

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

Answer 1

您必须使用 Items 对象的 AddObject 方法，如下所示:

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