DELPHI7鼠标滚轮滚动
DELPHI7鼠标滚轮滚动在DBGrid中我的数据很长目前在当前页面滚动，右边的滚动条要用鼠标去点，我现在就是要滚动条可以滚动整个表的数据。。清不要粘贴答案。。谢谢！如果...
DELPHI7鼠标滚轮滚动在DBGrid中我的数据很长 目前在当前页面滚动，右边的滚动条要用鼠标去点，我现在就是要滚动条可以滚动整个表的数据。。清不要粘贴答案。。谢谢！如果你是写的代码 还请注释下 谢谢诸位大侠！
展开
2个回答
展开全部
procedure TForm1.ApplicationEvents1Message(var Msg:tagMSG;var Handled:Boolean);
begin
if (DBGrid1.Focused) And (Msg.message=wm_mousewheel) then
begin
if Msg.wParam>0 then
SendMessage(DBGrid1.Handle,wm_keydown,vk_up,0)
else
SendMessage(DBGrid1.Handle,wm_keydown,vk_down,0);
Handled:=True;
end;
end;
begin
if (DBGrid1.Focused) And (Msg.message=wm_mousewheel) then
begin
if Msg.wParam>0 then
SendMessage(DBGrid1.Handle,wm_keydown,vk_up,0)
else
SendMessage(DBGrid1.Handle,wm_keydown,vk_down,0);
Handled:=True;
end;
end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
接插世界网（上海住歧电子科技有限公司）_
2022-05-17 广告
焊接式的接插件用于电流较小，发热较少的场合，否则过热效导致焊锡熔化，有发生短路的危险。压接的一般用于导线头，也可用于无法焊接或不适于焊接比较高热的场合。 可以订做，不过尽量选择标准的插头，以免增加成本。通用品是量产的，便宜。买卖接插件，就上...
点击进入详情页
本回答由接插世界网（上海住歧电子科技有限公司）_提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
