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

Question

我正在使用OnGetColors事件TColorBox组件，但我不知道如何使用事件的 item 参数的 Items 属性添加新颜色。

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

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

Answer 1

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

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