delphi中怎么在DBgrid中实现鼠标滚轮效果?用ADO+DBgrid访问的记录
解决方案 »
- 一个简单的SQL语句问题,送分啊
- 求 EPSON 打印机的 打印指令集 和 DELPHI 写的 用打印指令 控制 打印机打印的 例子代码 , 急!!!!!!!!!!!!!!!!!!!!!!!
- 怎么我收藏夹里的帖子都乱套了?搞什么搞!!
- 如何把string型转换成tcolor类型的?
- 如何制作帮助文件(Help格式),在线等
- 机器与局域网相连的问题
- 报表打印问题!
- 在com对象里用quickrep打印死机!谁能帮我一把???
- 新手提问:Directoryoutline组件使用中遇到的问题?
- 哈哈!今天发现DBGRIDEH中的一个BUG
- delphi中接口部分的private和public到底做什么用的?
- dbgridEH内如何得到时间的格式,如07:50
procedure ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean); //在下面的过程写好后直接按Ctrl+Shift+C将自动生成此段代码
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
//------------------------------------------------------------------------------
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;
if (DBGrid2.Focused) And (Msg.message = WM_MOUSEWHEEL) then //如果有两个DBGrid
begin
if Msg.wParam > 0 then
SendMessage(DBGrid2.Handle, WM_KEYDOWN, VK_UP, 0)
else
SendMessage(DBGrid2.Handle, WM_KEYDOWN, VK_DOWN, 0);
Handled := True;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=ApplicationEvents1Message; // 截获鼠标滚动事件
end;