3

我正在尝试向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;

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

4

2 回答 2

5

您需要cbCustomColors在属性中包含该选项以Style启用添加您自己的自定义颜色。该cbCustomColor选项仅包括该项目,它允许您选择自定义颜色。

于 2013-02-25T16:29:21.617 回答
0

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

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

于 2013-03-16T05:49:50.347 回答