文章详情

  • 游戏榜单
  • 软件榜单
关闭导航
热搜榜
热门下载
热门标签
php爱好者> php文档>Delphi Dbgrid滚轮问题解决

Delphi Dbgrid滚轮问题解决

时间:2010-08-22  来源:小聪崽的一切

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
TDBGrid
=class(DBGrids.TDBGrid)
public
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
end;

TForm1
= class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function TDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint): Boolean;
begin
if WheelDelta < 0 then
datasource.DataSet.Next;
if wheelDelta > 0 then
DataSource.DataSet.Prior;
end;


end.

 

相关阅读 更多 +
排行榜 更多 +
子午线157第2章

子午线157第2章

冒险解谜 下载
冲破牢笼手机版

冲破牢笼手机版

飞行射击 下载
冲突2西线安卓版

冲突2西线安卓版

飞行射击 下载