DBGrid3D (增加了鼠标滚轮的支持)

分　　类：表格
语　　种：简体中文
编辑器：Delphi6
平　　台：Win9x,Win2k/NT,WinXP
作品源代码： 本地下载
软件或演示： -
代码大小： 4.7K
软件大小： -

无图片

在原来TDBGrid的基础上增加了鼠标滚轮的支持:

unit DBGrid3D;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, Grids, DBGrids;

type
TDBGrid3D = class(TDBGrid)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
{ Published declarations }
end;

procedure ReGISter;

implementation


function TDBGrid3D.DoMouseWheel(Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint): Boolean;
begin
if WheelDelta < 0 then
Datasource.DataSet.Next;
if wheelDelta > 0 then
DataSource.DataSet.Prior;
end;

procedure Register;
begin
RegisterComponents('Samples', [TDBGrid3D]);
end;

end.

上一篇： FastReport v2.53 Full Source (报表)
下一篇： WPTools 5 注册版

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!