delphi - 如何使滚动条的缩略图调整大小

Question

如果您打开记事本，添加十行并将编辑器大小调整为仅显示九行，则拇指轨迹(滚动条上的可拖动 block )几乎是垂直滚动条的整个长度。如果添加几千行，拇指轨迹只有几个像素高。

我想在实现水平滚动条的 TCustomControl 后代中复制此行为。因此，我将 WS_HSCROLL 添加到我的窗口样式(在 CreateParams 中)并实现了 WM_HSCROLL 的处理程序。在此过程中，我使用 SetScrollRange 和 SetScrollPos 来管理拇指轨迹的范围和位置 - 但这个小家伙仍然是一个近乎完美的正方形。

我错过了什么？

Answer 1

您可以使用 PageSize 属性来影响缩略图大小。

示例:

ScrollBar1.Min      := 0;
ScrollBar1.Max      := 100;
ScrollBar1.Position := 70;
ScrollBar1.PageSize := 50;

看起来像: