博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
Delphi TScrollBar 用于滚动窗口、组件内容
阅读量:4640 次
发布时间:2019-06-09

本文共 1859 字,大约阅读时间需要 6 分钟。

滚动条组件(TScrollBar)此组件是一个Windows滚动条,用于滚动窗口、组件内容。许多控制有滚动条属性,它们把滚动条作为自己的一部分,对于没有完整滚动条的控制,TScrollBar组件提供了一个附加的功能,运用它可以使某些控制的内容易于操作。 

1、TScrollBar组件的典型用法
一般情况下,滚动条是自动加入的,例如前面讲的列表框,当项目不能完全显示时,列表框将自动加上滚动条。当用户操作滚动条时,列表自动滚动。
如果想自己操纵窗口滚动,就要用到TScrollBar组件,当用户在滚动条上操作时,将触发OnScroll事件,这样就可以操纵怎样滚动了。
在通常情况下,用户只利用OnScroll事件,并在代码中引用Position属性,获取TScrollBar组件中小方块的位置,然后利用此值进行操作,例如设置文字的字号大小、颜色的取值等。 
2、TScrollBar组件的重要属性 
Kind---------此属性用于设置滚动条是水平方向的还是垂直方向的 
LargeChange--设置滚动条滚动的距离
Max------------此属性用于设置滚动条的最终值 
Min------------此属性用于设置滚动条的起始值 
PageSize-------当按PgUp或PgDn键时,设置滚动条滚动的距离Position设置或返回滚动条中小方块的位置 
SmallChange----用户按下滚动条两端的箭头时滚动条滚动的距离
(1)Kind属性 
Kind属性用于设置滚动条是水平方向的还是垂直方向。它有两个取值: 
. sbHorrizontal:水平方向; 
. sbVertical:垂直方向。
(2)LargeChange属性
当用户单击滚动条内(不是滚动条两端的箭头)时,滚动条滚动的距离是由LargeChange属性设置的,默认是 
1,这是一个相对数。假设LargeChange属性设为10,如果Max属性减去Min属性为80,则用户只要按8次滚动条就能从一端滚到另一端。
(3)Max属性和Min属性
这两个属性分别用来设置滚动条的最终值和起始值,它们的取值在-2147483648和2147483647之间。 
Max属性取值必须大于Min属性,并且必须为0或正整数。
(4)PageSize属性
当用户按PgUp或PgDn键时,滚动条滚动的距离是由PageSize属性设置的,默认是1。
(5)Position属性 
Position属性用于设置或返回滚动条中小方块的位置,可以在设计期设置Position属性指定的小方块的起始位置,也可以在运行期修改Position属性使滚动条滚动。
(6)SmallChange属性 
SmallChange属性与LargeChange属性相似,不同的是,它是用户按滚动条两端的箭头时滚动条滚动的距离,默认值是1。 
3、TScrollBar组件的重要事件
OnChange-------------用户操作滚动条或者通过编程直接修改 
Position-------------属性的值,都会触发该事件 
OnScroll-------------当用户操作滚动条时将触发这个事件
(1)OnChange事件
用户操作滚动条或者通过编程直接修改Position属性的值,都会触发该事件。 
OnScroll事件只在用户操作滚动条时才会发生,OnChange事件发生在OnScroll事件之后。
(2)OnScroll事件
当用户操作滚动条时将触发这个事件。其中ScrollPos参数返回滚动条中小方块的位置ScrollCode参数返回滚动条的状态。可以是以下各值。
. scLineUp:用户按下滚动条的左或上箭头或者键盘上的向上方向键。 
. scLineDown:用户按下滚动条的右或下箭头或者键盘上的向下方向键。 
. scPageUp:用户单击滚动条内小方块左边或上边的区域或者按下PgUp键。 
. scPageDown:用户单击滚动条内小方块右边或下边的区域或者按下PgDn键。 
. scPosition:用户在滚动条内拖拽小方块并且已释放。 
. scTrack:用户正在拖拽小方块。 
. scTop:用户把小方块移到滚动条的上端或左端。 
. scBottom:用户把小方块移到滚动条的下端或右端。 
. scEndScroll:用户操作滚动条后释放了鼠标或按键。

转载于:https://www.cnblogs.com/h2zZhou/p/6490794.html

你可能感兴趣的文章
C#操作OFFICE一(EXCEL)
查看>>
【js操作url参数】获取指定url参数值、取指定url参数并转为json对象
查看>>
ABAP 程序间的调用
查看>>
移动端单屏解决方案
查看>>
web渗透测试基本步骤
查看>>
使用Struts2标签遍历集合
查看>>
angular.isUndefined()
查看>>
第一次软件工程作业(改进版)
查看>>
网络流24题-飞行员配对方案问题
查看>>
Jenkins 2.16.3默认没有Launch agent via Java Web Start,如何配置使用
查看>>
引入css的四种方式
查看>>
iOS开发UI篇—transframe属性(形变)
查看>>
3月7日 ArrayList集合
查看>>
jsp 环境配置记录
查看>>
Python03
查看>>
LOJ 2537 「PKUWC2018」Minimax
查看>>
使用java中replaceAll方法替换字符串中的反斜杠
查看>>
Some configure
查看>>
json_encode时中文编码转正常状态
查看>>
流量调整和限流技术 【转载】
查看>>