编程实现TListBox或TMemo的上滚、下滚
编号：QA003290
建立日期: 2000年8月29日 最后修改日期：2000年8月29日
所属类别：
陆沁刚:
操作系统: windows2000 professional,sybase11.9
编程工具: delphi5.0
问题: 本人单位需要开发多媒体查询台，使用触摸屏提供用户点触查询，在开发过程中，需要在街面上显示有关政策法规，使用了Tlist,Tmemo等控件实现了，但是为了方便用户用手指点戳触摸屏，必须在界面上另建Tbutton，通过点戳该按键，通过该按键的onclick事件中编程实现Tlist或Tmemo的上滚、下滚（模拟鼠标点击滚动条）！请帮助，谢谢！
水平: 中级
回答:
TListBox的滚动可以通过修改TopIndex属性实现，如：
ListBox1.TopIndex := 5;
TMemo的滚动可以通过发送EM_LINESCROLL消息，如：
SendMessage(Memo1.handle, EM_LINESCROLL, 0, 5);
如果你要模拟鼠标的操作，可以参考QA001718 "如何模拟鼠标移动操作"。
此问题由李海回答。
| |
|
|
| |
|
|
