delphi - OnGetColors 事件未触发 TColorBox

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选项仅包括该项目，它允许您选择自定义颜色。

Answer 2

为了让它发挥作用，我确实必须遵循@Sertac 的建议。在 FormCreate 上，我为每个 TColorBox 触发了一个删除[cbCustomColors]然后将它们添加回的过程。

我找不到其他合适的解决方法，也找不到 GetColors 在应该触发的时候没有触发的原因。