Question

DELPHI7鼠标滚轮滚动

DELPHI7鼠标滚轮滚动在DBGrid中我的数据很长 目前在当前页面滚动，右边的滚动条要用鼠标去点，我现在就是要滚动条可以滚动整个表的数据。。清不要粘贴答案。。谢谢！如果你是写的代码 还请注释下 谢谢诸位大侠！

Answer 1

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;

Answer 2

什么意思?你的意思是鼠标滑轮在不点右边的滚动条下，就可以滑动所有的数据吗？