从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组件，我们先要把它的Style属性设为cs_OwnerDrawFixed或者cs_OwnerDrawVariable，如果在ComboBox组件中的所有元素都是相等高度的，例如字符或图标，那么就使用cs_OwnerDrawFixed；如果在ComboBox组件中的各个元素不是相等高度的，例如不同大小的位图，那么就使用 cs_OwnerDrawVariable属性。ComboBox组件会接收到WM_MEASUREITEM消息，从而触发OnMeasureItem事件。Windows就不再对该组件进行绘制了，取而代之的是我们用发送WM_DRAWITEM的方式对它进行重绘。
下面我们用两个实例来说明完整的绘制过程：
1、显示颜色的Combobox:
|
最低0.47元/天 解锁文章
161
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
