Cob*_*ger 3 delphi scroll scrollbar tcustomcontrol
如果打开记事本,添加十行并调整编辑器大小仅显示九,拇指轨道(滚动条上的可拖动块)几乎是垂直滚动条的全长.如果添加几千行,则拇指轨道只有几个像素高.
我想在TCustomControl后代复制这个bahaviour,在那里我实现了一个水平滚动条.所以我将WS_HSCROLL添加到我的窗口样式(在CreateParams中)并为WM_HSCROLL实现了一个处理程序.在此过程中,我使用SetScrollRange和SetScrollPos来管理拇指轨道的范围和位置 - 但是小虫子仍然是一个接近完美的方块.
我错过了什么?
您可以使用该PageSize属性来影响拇指大小.
例:
ScrollBar1.Min := 0;
ScrollBar1.Max := 100;
ScrollBar1.Position := 70;
ScrollBar1.PageSize := 50;
Run Code Online (Sandbox Code Playgroud)
看起来像:

| 归档时间: |
|
| 查看次数: |
2956 次 |
| 最近记录: |