delphi - 如何检测滚动条是否在最底部？

Question

很容易检测TScrollBox的垂直滚动条是否在最顶部:

IsScrollBarAtTop := ScrollBox1.VertScrollBar.Position = 0;

但是如何检测 TScrollBox 的垂直滚动条是否位于最底部？

Answer 1

您可以通过API检索滚动条信息并确定其是否位于底部。

function IsScrollBarAtBottom(Box: TScrollBox): Boolean;
var
  Info: TScrollInfo;
begin
  Info.cbSize := SizeOf(Info);
  Info.fMask := SIF_POS or SIF_RANGE or SIF_PAGE;
  Win32Check(GetScrollInfo(Box.Handle, SB_VERT, Info));
  Result := Info.nPos >=  Info.nMax - Info.nMin - Info.nPage;
end;