delphi - 如何检查 TJvTreeView 中是否存在滚动条

Question

我正在尝试在 TJvTreeView 中定位一些东西，我想知道垂直滚动视图的宽度和存在。有谁知道这样做的规范方法？或者失败了，有什么办法吗？

Answer 1

测试WS_VSCROLL窗口样式的存在：

HasVertScrollBar := (GetWindowLongPtr(hWnd, GWL_STYLE) and WS_VSCROLL) <> 0;

要查找系统滚动条的宽度，请调用SystemParametersInfo传递SPI_GETNONCLIENTMETRICS。

var
  ncm: TNonClientMetrics;
....
ncm.cbSize := SizeOf(ncm);
Win32Check(
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, ncm.cbSize, Pointer(@ncm), 0)
);

然后可以从 中检索滚动条宽度ncm.iScrollWidth。