1. //滚轮事件:ScrollBox1: TScrollBox;
  2. procedure TfrmReleateGQAccount.ScrollBox1MouseWheel(Sender: TObject; //也可以写在窗体事件中
  3. Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  4. var Handled: Boolean);
  5. begin
  6. if WheelDelta< then
  7. ScrollBox1.Perform(WM_VSCROLL,SB_LINEDOWN,) //发送消息
  8. else
  9. ScrollBox1.Perform(WM_VSCROLL,SB_LINEUP,);
  10. end;
  1. object scrlbx1: TScrollBox
  2. Left =
  3. Top =
  4. Width =
  5. Height =
  6. Align = alClient
  7. Color = clBtnFace
  8. ParentColor = False
  9. TabOrder =
  10. ExplicitLeft =
  11. ExplicitTop =
  12. end

控件窗体文件

SendMessage(scrlbx1.Handle,WM_VSCROLL,SB_LINEDOWN,0); 也可以通过这样的方式

  1. function TControl.Perform(Msg: Cardinal; WParam: WPARAM; LParam: LPARAM): LRESULT;
  2. var
  3. Message: TMessage;
  4. begin
  5. {$IF DEFINED(CLR)}
  6. Message := TMessage.Create(Msg, WParam, LParam);
  7. {$ELSE}
  8. Message.Msg := Msg;
  9. Message.WParam := WParam;
  10. Message.LParam := LParam;
  11. Message.Result := ;
  12. {$IFEND}
  13. if Self <> nil then
  14. WindowProc(Message);
  15. Result := Message.Result;
  16. end;
  17.  
  18. property WindowProc: TWndMethod read FWindowProc write FWindowProc;
  19.  
  20. TWndMethod = procedure(var Message: TMessage) of object;
  21.  
  22. function TWinControl.DoHandleStyleMessage(var Message: TMessage): Boolean;
  23. begin
  24. Result := TStyleManager.HandleMessage(Self, Message, FWindowProc)
  25. end;

TControl.Perform代码追踪

一、简介

ScrollBox(滚动框)部件是加上了水平、垂直滚行条的群组框部件,它在Additional页上,用作在窗体中提供一个可以多方向滚行的工具。如果您只想显示较大幅面的一个部分,并允许您的用户对其进行滚行操作,ScrollBar将是理想的选择。您可以先在全幅面的滚动框中进行全面设计,然后适当地缩小外框,两个方向的滚行条将自动显示。它的Position属性是集成在HorzScrollBar和VertScrollBar两个集属性下的,编程时,可以选定这两个属性进行操作。

编程时,在scrollbox控件中放置一个panel,设置panel的Align属性为alNone(切忌设置为alClient),适当放大panel的大小,滚动条就可以出来了;

也可以在scrollbar中放置TOleContainer控件,同样设置Align为alNone,SizeMode设置为smAutoSize,当使用TOleContainer显示Excel、Word等文档时,滚动条也会出现。

TScrollBox的用法 滚动事件的更多相关文章

  1. js网页滚动条滚动事件实例分析

    本文实例讲述了js网页滚动条滚动事件用法.分享给大家供大家参考.具体分析如下: 在做js返回顶部的效果时,要监听网页滚动条滚动事件,这个事件就是:window.onscroll.当onscroll事件 ...

  2. Vue 爬坑之路(七)—— 监听滚动事件 实现动态锚点

    前几天做项目的时候,需要实现一个动态锚点的效果 如果是传统项目,这个效果就非常简单.但是放到 Vue 中,就有两大难题: 1. 在没有 jQuery 的 animate() 方法的情况下,如何实现平滑 ...

  3. 在FireFox浏览器上,用stopImmediatePropagation阻止冒泡鼠标滚动事件

    楔子 是不是在火狐用stopPropagation不太满意 很久没有笑过又不知为何 既然不快乐又不喜欢这里 不如一路向西用stopImmediatePropagation(其实我对浏览器的兼容性看不顺 ...

  4. js鼠标滑轮滚动事件绑定(兼容主流浏览器)

    /** Event handler for mouse wheel event. *鼠标滚动事件 */ var wheel = function(event) { var delta = 0; if ...

  5. 鼠标滚动事件兼容性 wheel、onwheel

    wheelEvent = "onwheel" in document.createElement("div") ? "wheel" : // ...

  6. JavaScript----分层导航 滚动事件

    分层导航 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3 ...

  7. JS鼠标滚动事件

    -----------------------------//鼠标滚动事件以下是JS临听鼠标滚动事件 并且还考虑到了各浏览器的兼容----------------------------------- ...

  8. Jquery-Mobile滚动事件

    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> < ...

  9. javascript滚动栏响应鼠标滑轮的实现上下滚动事件

    实现鼠标滚动滚轮事件: <script type="text/javascript"><pre name="code" class=" ...

随机推荐

  1. mysql命令总结

    统计全库数据量: use information_schema; SELECT TABLE_NAME, (DATA_LENGTH) as DataM , (INDEX_LENGTH) as Index ...

  2. [Unity3D]添加音效说明

    添加音效组件并添加音乐资源 其中Pitch用来提高和降低音调的,比如可以和赛车游戏的轮胎绑定,当轮胎越快,则音调越高 2D/3D音效:2D音效和摄影家的距离无关,可以看做是一个背景音乐:而3D音效则是 ...

  3. 程序代码中退出函数exit()与返回函数return ()的区别

    程序代码中退出函数exit()与返回函数return ()的区别   exit(0):正常运行程序并退出程序:   exit(1):非正常运行导致退出程序:   return():返回函数,若在主函数 ...

  4. CentOS Linux解决Device eth0 does not seem to be present

    在VMware里克隆出来的Centos Linux.. ifconfig...没有看到eth0..然后重启网卡又报下面错误. 故障现象: 解决办法: 首先,打开/etc/udev/rules.d/70 ...

  5. php函数fgets读取文件

    如果一个文件比较大,可以考虑用fgets函数 下面是个例子: #文件作用:fgets读取文件 $start_time = microtime(true); $file_name = "a.t ...

  6. JavaScript闭包(Closure)学习笔记

    闭包(closure)是JavaScript语言的一个难点,也是它的特色,很多高级应用都要依靠闭包实现. 下面就是我的学习笔记,对于JavaScript初学者应该是很有用的. 一.变量的作用域 要理解 ...

  7. php 批量去空格和注释

    原理:php自带函数去注释和空格  => php_strip_whitespace如题,新建文件 re_note.php,将文件放入你要批量去除注释和空格的根目录.然后运行就行了 代码如下: & ...

  8. jstl 小总结 以及 jstl fn

    1.1.1 JSTL的使用 JSTL是JSP标准标签库.结合EL替换传统页面的<%%> * JSTL如果不会用.也是可以使用<%%>.但是一般在大公司使用JSTL.进入小公司. ...

  9. iOS 向客户发送xcarchive文件(整理中)

    由于安全的原因,客户不会把app的 distribution provisioning profile给开发者的,但是可以给一个development provisioning profile.这种情 ...

  10. java 深入技术四(Set)

    1)Set接口 set接口的父接口-Collection set接口的重要子类-HashSet set接口的重要子类 -TreeSet set 接口的特别子类-LinkedHashSet 2)Hash ...