怎样判断ScrollBox的滚动条已经滚动???

HitomiWP 2003-10-20 05:04:39
有一个ScrollBox,我该如何判断这个Scrollbox的滚动条是否已经滚动?
...全文
98 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
hch_45 2003-10-20
  • 打赏
  • 举报
回复
if ScrollBar1.Position = ScrollBar1.Min then
没滚
else
有滚;
lead001 2003-10-20
  • 打赏
  • 举报
回复
定义消息事件捕获系统消息
procedure WMHScroll(var message: TWMHScroll); message wm_HScroll;
procedure TMyTree.wmHScroll(var message: TWMHScroll);
begin
//Your code
end;

procedure WMVScroll(var message: TWMVScroll); message wm_VScroll;
procedure TMyTree.WMVScroll(var message: TWMVScroll);
begin
//Your code
end;
HitomiWP 2003-10-20
  • 打赏
  • 举报
回复
to ghyghost(爱国人士)
你这个是Scrollbar的事件!在Scrollbox中没有这个事件的
  • 打赏
  • 举报
回复
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin

end;
HitomiWP 2003-10-20
  • 打赏
  • 举报
回复
没有onscroll事件啊!
lxl 2003-10-20
  • 打赏
  • 举报
回复
ScrollBAR不是有一个ONSCROLL的事件吧?当发生滚动时候就触发这个事件,另外也可用一个全局变量来放置ScrollBAR的POSITION,当这个数不等于当前的POSITION,则发生了滚动

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧