delphi - 如何获取TSynEdit等TWinControl的水平和垂直滚动条位置？

Question

在 Delphi 中，在许多 TWinControl 后代中，例如在我的例子中，TSynEdit 控件，我将如何读取水平和垂直滚动条位置？

我一直在源代码中搜索我的特定控件，并在 TWinControl 的基类文档中搜索，但无法弄清楚。

是否有通用的 VCL 特定方法来执行此操作，或者我应该通过 Win32 API 调用来执行此操作？

Answer 1

GetScrollBarInfo函数是获取任何 TWinControl 的滚动条位置的方法。您必须传递控件的句柄、OBJID_VSCROLL 或 OBJID_HSCROLL 值以及 SCROLLBARINFO返回数据的结构。

检查此示例

var
 LBarInfo: TScrollBarInfo;
begin
 LBarInfo.cbSize := SizeOf(LBarInfo);
 if GetScrollBarInfo(SynEdit1.Handle, Integer(OBJID_VSCROLL), LBarInfo) then
  ShowMessage(Format('Left %d Top %d Height %d Width %d', [LBarInfo.rcScrollBar.Left, LBarInfo.rcScrollBar.Top, LBarInfo.rcScrollBar.Height, LBarInfo.rcScrollBar.Width]));
end;