delphi - TColorBox 未触发 OnGetColors 事件

Question

我正在尝试向 TColorBox 控件添加自定义颜色。我已将控件添加到表单中，并将 Style 属性的 cbCustomColor 设置为 True。对于 OnGetColors 事件，我有以下代码:

procedure TfrmAbout.GetColors(Sender: TCustomColorBox; Items: TStrings);
begin
  ShowMessage('GetColors has been triggered');
  Items.AddObject('clWebSnow',TObject(clWebSnow));
  Items.AddObject('MyOrange',TObject(Rgb(255,128,0)));
end;

我没有看到消息框或下拉列表中出现的颜色。为了让它发挥作用，我还需要做些什么吗？

Answer 1

您需要将 cbCustomColors 选项包含到 Style 属性中，以启用添加您自己的自定义颜色。 cbCustomColor 选项仅包含允许您选择自定义颜色的项目。