我找到了一些如下所示的示例代码,用于尝试自定义滚动条颜色:
HBRUSH CMainFrame::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor)
{
HBRUSH hbr = CFrameWnd::OnCtlColor(pDC, pWnd, nCtlColor);
if(nCtlColor==CTLCOLOR_SCROLLBAR)
return m_brColor;
return hbr;
}
我发现下面的代码不起作用:
procedure TForm1.WMCTLColor(var msg: TWMCTLCOLOR); message WM_CTLCOLOR;
我怎样才能在Delphi中做到这一点?
最佳答案
native API 中没有 WM_CTLCOLOR
消息。相反,您可以使用 CN_CTLCOLORSCROLLBAR
控件通知,该通知由 VCL 发送到子控件以响应 API 的 WM_CTLCOLORSCROLLBAR
.
type
TScrollBar = class(TScrollBar)
protected
procedure WMCtlColor(var Message: TWMCtlColorScrollbar); message CN_CTLCOLORSCROLLBAR;
end;
procedure TScrollBar.WMCtlColor(var Message: TWMCtlColor);
begin
Message.Result := CreateSolidBrush(RGB(255, 255, 0));
end;
或者,如果您不想派生新控件,只要将滚动条放置在表单上即可:
TForm1 = class(TForm)
...
protected
procedure WMCtlColorScrollbar(var Message: TWMCtlColorScrollbar);
message WM_CTLCOLORSCROLLBAR;
...
end;
procedure TForm1.WMCtlColorScrollbar(var Message: TWMCtlColorScrollbar);
begin
if Message.ChildWnd = ScrollBar1.Handle then
Message.Result := CreateSolidBrush(RGB(255, 255, 0));
end;
关于delphi - 如何自定义滚动条颜色?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14734441/