Delphi制作图形化的ComboBox

从Delphi5开始，Delphi集成开发环境中的Object Inspector就使用了图形化的风格来显示某些属性。比如Cursors、Colors、Fonts和Image List等等属性就是这种类型。第一次看到这样的效果，的确令人感到神奇，各种字体的名称可以直接以这种字体的样式显示出来，在选择字体的时候真是很方便。这种效果是如何实现的呢，其实就是使用了组件的“自绘”（Ower-drawing）方法。在Delphi中想要实现这样的功能是很方便的，现在我们就开始一段神奇的“图形化组件”之旅吧，Let's Draw!

　　要建立一个自绘的ComboBox组件，我们先要把它的Style属性设为cs_OwnerDrawFixed或者cs_OwnerDrawVariable，如果在ComboBox组件中的所有元素都是相等高度的，例如字符或图标，那么就使用cs_OwnerDrawFixed；如果在ComboBox组件中的各个元素不是相等高度的，例如不同大小的位图，那么就使用 cs_OwnerDrawVariable属性。ComboBox组件会接收到WM_MEASUREITEM消息，从而触发OnMeasureItem事件。Windows就不再对该组件进行绘制了，取而代之的是我们用发送WM_DRAWITEM的方式对它进行重绘。

　　下面我们用两个实例来说明完整的绘制过程：

　　1、显示颜色的Combobox:

（图一）

　　第一步，我们把颜色的名字加入ComboBox的Item属性中（这一步是在Form.OnCreate事件中完成的），所有的颜色的名称将被加入一个常量（Colors)中,代码如下：