怎样是DBGRID的竖滚动条,用鼠标的滚轮可以滚动 怎样是DBGRID的竖滚动条,用鼠标的滚轮可以滚动 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 publicprocedure MouseWheel(var Message: TMessage);procedure MouseWheel(var Message: TMessage);beginMessage.Msg := WM_KEYDOWN;Message.lParam := 0;if Message.WParam > 0 then Message.WParam := VK_UPelse Message.WParam := VK_DOWN;SendMessage(Handle,Message.Msg,Message.WParam,Message.LParam);end; txmjs(天地之间) 你说的不行啊 DbgridEh控件哪儿里都有下载,功能要比Dbgrid强大的多,也支持楼主说的 我这个程序是不允许用DbgridEh控件 当然你也可以使用这个TSMDBGrid控件.因为它是继承TDBGRID的.这个控件支持滚动. 不知道TSMDBGrid组件怎么实现此功能的 csdn上没有高手了,这个问题都没有人知道吗 http://www.yesky.com/SoftChannel/72342371928440832/20030619/1709082.shtml 关于delphi,gbgrid的取值问题。。 ListBox控件中一行中使用,如何象RICHTXT一样,每个字都能改变不同字体和颜色啊?在线等啊 TOLEContainer的菜单问题,word里面的新建,打开,打印预览等失效 关于delphi中报表中图片的问题 按ALT键为啥会跳出主窗体? 请教精度问题 请教隐藏硬盘及限制IE访问硬盘的问题 请教高手QUICKREPORT自定义预览窗口的问题。 请问各位哪里能申请中文的免费网页空间,50分谢谢。 高手请来这边 怎样在程序中获取鼠标滚轮的消息 ★☆★去 移动、电信、联通还是网通工作好?
begin
Message.Msg := WM_KEYDOWN;
Message.lParam := 0;if Message.WParam > 0 then
Message.WParam := VK_UP
else
Message.WParam := VK_DOWN;SendMessage(Handle,Message.Msg,Message.WParam,Message.LParam);
end;