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 注册版

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有