修改Grid的滚动条

sffshh 2004-11-24 05:21:31

我做的程序用到Grid，因为界面做的不是常规样子（包括颜色、式样），所以如果Grid出现滚动条就会好不协调，有办法改Grid的滚动条吗？比如颜色或其它？

...全文

126 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

sffshh 2004-11-25

打赏
举报

不是CM_CTLCOLORSCROLLBAR，是CN_CTLCOLORSCROLLBAR，但是这只能改背景哦，还是好难看

sffshh 2004-11-25

打赏
举报

不行，我试过了

nyf1220 2004-11-25

打赏
举报

是
WM_CTLCOLORSCROLLBAR
消息

aiirii 2004-11-25

打赏
举报

WM_CTLCOLORSCROLLBAR= $0137; 当一个滚动条控件将要被绘制时发送此消息给它的父窗口；通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置滚动条的背景颜色

sffshh 2004-11-25

打赏
举报

不行啊，说没有CM_CTLCOLORSCROLLBAR这个消息嘛

bee2518 2004-11-24

打赏
举报

得截获CM_CTLCOLORSCROLLBAR，不然收不到wm_ctlcolorscrollbar消息。
大概方法如下：
TXXX=class(TCustomGrid)
private
FSCrollBarBrush: TBrush;
procedure CMCtlColorScrollBar(var Message: TMessage); message CM_COLORSCROLLBAR;
....

procedure TXXX.CMCtlColorScrollBar(var Message: TMessage);
begin
inherited;
Message.Result := FSCrollBarBrush.Handle;
// FScrollBarBrush是你事先建立好的一个TBrush类实例，这个Brush的颜色随便你怎么设，你设的是什么scrollbar显示的颜色就是什么。
end;