| 本月文章推荐 |
给DBGrid添加鼠标滚动事件发表日期：2006-2-4
|
|
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids; type TForm1 = class(TForm) DBGrid1: TDBGrid; ADOTable1: TADOTable; DataSource1: TDataSource; procedure FormCreate(Sender: TObject); private Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean); { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //------------------------------------------------------------------------------ Procedure TForm1.OnMouseWheel(Var Msg :TMsg;var Handled:Boolean); begin if Msg.message = WM_MouseWheel then begin if Msg.wParam > 0 then begin if DBGrid1.Focused then SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEUP,0); end else begin if DBGrid1.Focused then SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEDOWN,0); end; Handled:= True; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage:=OnMouseWheel; // 截获鼠标滚动事件 end; |
| 上一篇：用Delphi编写论坛灌水机
人气:4420 下一篇：列出本机所有的Ip 人气:3696 |
| 浏览全部Delphi的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
