怎样判断ScrollBox的滚动条已经滚动??? 有一个ScrollBox,我该如何判断这个Scrollbox的滚动条是否已经滚动? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ScrollBAR不是有一个ONSCROLL的事件吧?当发生滚动时候就触发这个事件,另外也可用一个全局变量来放置ScrollBAR的POSITION,当这个数不等于当前的POSITION,则发生了滚动 procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);beginend; to ghyghost(爱国人士) 你这个是Scrollbar的事件!在Scrollbox中没有这个事件的 定义消息事件捕获系统消息procedure WMHScroll(var message: TWMHScroll); message wm_HScroll;procedure TMyTree.wmHScroll(var message: TWMHScroll);begin //Your codeend;procedure WMVScroll(var message: TWMVScroll); message wm_VScroll;procedure TMyTree.WMVScroll(var message: TWMVScroll);begin //Your codeend; if ScrollBar1.Position = ScrollBar1.Min then 没滚else 有滚; 求助,如何获得鼠标所在窗口的句柄和窗口标题? 最近上班又不能上网了,郁闷,散分 如何用delphi把文本文件变成报文? fastreport3变量值不能用在adoquery组件的sql查询语句中 小问题??? 公司要小弟做测试有没有好的书推荐几本??? 简单的SQL语句求解,急用!谢谢!』100分 散分: 为我终于可以回北京了。。。 怎么样把这个格式化成2位小数 ---- 我有一个Dock问题,Delphi高手请进 ---------- 请教一个我一直不得其门的问题:请问如何访问或者控制TListView 下面水平滚动条的位置 一个关于动态链接库的问题?
var ScrollPos: Integer);
beginend;
你这个是Scrollbar的事件!在Scrollbox中没有这个事件的
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;
没滚
else
有滚;