我正在尝试为 TColorBox
控件添加自定义颜色。我已经将该控件添加到我的表单中,并将 Style
属性设置为 cbCustomColor
。对于 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;
我没有看到消息框或下拉菜单中的颜色。是否还需要做其他事情才能使它正常工作?
TColorBox
吧? - David Heffernan