Delphi：如何获取TImgView32控件滚动条的位置？

【问题标题】：Delphi: How to get the positions of scrollbars of TImgView32 control?Delphi：如何获取TImgView32控件滚动条的位置？
【发布时间】：2019-08-31 05:40:33
【问题描述】：

我使用 Graphics32 库并将 TImgView32 控件放在窗体上。在代码中，我想获取垂直滚动条的位置，但找不到任何属性。

如何获取TImgView32控件垂直滚动条的位置？

【问题讨论】：

显然control 使用arbitrator 来反映生活在其他地方的actual scrollbars 的properties。事实上，财产集似乎仅限于化妆品。奇怪...
你不能直接访问range bar吗？它有一个“位置”属性。

标签： delphi scrollbar

【解决方案1】：

TImgView32 是TCustomControl 的后代，这意味着它有自己的HWND。因此，假设该窗口使用标准 Win32 提供的滚动条，请尝试 Win32 API GetScrollInfo() 函数。

uses
  Windows;

var
  si: TScrollInfo;
begin
  si.cbSize := sizeof(si);
  si.fMask := SIF_POS;
  if GetScrollInfo(ImgView1.Handle, SB_VERT, si) then
  begin
    // use si.nPos as needed...
  end;
end;

【讨论】：