当前位置: 源码素材网 » Delphi源码 » 数据库实例 » 详情页

Delphi 利用鼠标滑轮查看组件中的数据

Delphi 利用鼠标滑轮查看组件中的数据,运行此程序之前,需要附加数据库,数据库连接成功后,操作鼠标滚轮即可控制组件中的数据滚动,让浏览数据更方便。
  procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
  var
   i: SmallInt;
  begin
   if Msg.message = WM_MOUSEWHEEL then
   begin
   Msg.message := WM_KEYDOWN;
   Msg.lParam := 0;
   i := HiWord(Msg.wParam);
   if i > 0 then
   Msg.wParam := VK_UP
   else
   Msg.wParam := VK_DOWN;
   Handled := False;
   end;
  end;

  • 相关标签:滚轮 数据滚动
  • 调试环境:Delphi7+
  • 文件大小:90.7K
  • 资源评级:
  • 更新时间:2019-10-05
  • 相关链接:暂无演示

源码测试截图:

Delphi 利用鼠标滑轮查看组件中的数据运行截图

相似源码:滚轮 数据滚动 Delphi源码下载:Delphi 利用鼠标滑轮查看组件中的数据 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi 利用鼠标滑轮查看组件中的数据”源代码侵犯了您的权益,请尽快告诉我们。