请问，颜色下拉列表框在哪个控件页上，我找了老半天也没找到。

[jb9802]

请问，颜色下拉列表框在哪个控件页上，我找了老半天也没找到。
再线等，马上给分，多谢各位。

[二毛豆打OI]

dialogs 控件页

ColorDialog 控件

[jb9802]

我说的是，下拉列表,颜色框，不是弹出对话框

[二毛豆打OI]

好像没有bcb中没有现成的这样控件吧，你可以用别的activeX控件。
其实我觉得可以通过点击一个按钮打开颜色对话框进行取色，photoshop的取色按钮就是这样的。

[invalid]

看看今天的帖子吧，有人问用TComboBox实现的颜色下拉框。

[jb9802]

贴子我是找到了，可是打不开呀！也不知道是怎么搞的，还请大家多多帮忙。

[invalid]

贴一篇我收集的文档吧
许你都看见过一些列表框啦、下拉框啦什么的，他们的选项不是文字而是图形。比如像Word 97中设置字体的对话框里有一项“下划线”设置，其选项中就是各种线形，给人非常直观的感觉。这种下拉框在C++ Builder中能做出来吗？

　　Of course！我在自己的程序中，就成功地使用了这种列表框完成了线形的设置。OK，下面我们就来实际做一个程序。这个程序的作用是这样的：使用下拉列表框选择一种颜色，并把Label1的文字设置成该颜色。

　　先在Form上放一个ComboBox,取名为ComboBox1。把（注意是关键哦！）Style改为csOwnerDrawFixed，注意这一步很重要，因为如果不改成OwerDraw形式的话，就不会触发后面要用到的OnDrawItem事件。另外，为了编程方便，我们定义一个颜色数组（简单起见，就用五种颜色）：
const TColor colors[5] = {clBlack, clWhite, clRed, clBlue, clGreen};


　　再在ComboBox的Items里写上5行：黑色、白色、红色、兰色、绿色。


　　最后在ComboBox的OnDrawItem里写上如下代码：
void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State)
//Control是需要自画的控件，Index是项数索引（从0开始），Rect是该项的绘画范围，State表示状态
//（选中、聚焦、无效等）
{
//画颜色索引的小方块
((TComboBox *)Control)-＞Canvas-＞Brush-＞Color = colors[Index];
((TComboBox *)Control)-＞Canvas-＞Brush-＞Style = bsSolid;
((TComboBox *)Control)-＞Canvas-＞FillRect(Classes::Rect(Rect.Left+2, Rect.Top+2, Rect.Left+14, Rect.Bottom-2)); //之所以用Classes::Rect是因为与参数重名
((TComboBox *)Control)-＞Canvas-＞Pen-＞Color = clBlack;
((TComboBox *)Control)-＞Canvas-＞Rectangle(Rect.Left+1, Rect.Top+1, Rect.Left+15, Rect.Bottom-1);

//写文字
((TComboBox *)Control)-＞Canvas-＞Font-＞Color = clBlack;
((TComboBox *)Control)-＞Canvas-＞Font-＞Name = "宋体";
((TComboBox *)Control)-＞Canvas-＞Font-＞Size = 9;

((TComboBox *)Control)-＞Canvas-＞Brush-＞Style = bsClear;
((TComboBox *)Control)-＞Canvas-＞TextOut(Rect.Left+20, Rect.Top+2, ((TComboBox *)Control)-＞Items-＞Strings[Index]);

//标记当前鼠标所在项（焦点项）[本例中在外边画个蓝方框表示]
if(State.Contains(odFocused))
{
((TComboBox *)Control)-＞Canvas-＞Pen-＞Color = clBlue;
((TComboBox *)Control)-＞Canvas-＞Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
}
else
{
((TComboBox *)Control)-＞Canvas-＞Pen-＞Color = clWhite;
((TComboBox *)Control)-＞Canvas-＞Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
}
}



　　好了，至此，一个自画的列表框就完成了。接下来的事情就非常简单了：
在ComboBox的OnChange事件中写以下代码：
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
Label1-＞Font-＞Color = colors[ComboBox1-＞ItemIndex];
}



　　就完成了Label字体变色的功能，我想不用解释了吧？运行看看效果吧！