盒子论坛 v2.1

試試
unit dumy1;

interface

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

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

TForm1 = class(TForm)
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.dfm}
{ TDBGrid }
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;

procedure TForm1.FormCreate(Sender: TObject);
begin
  table1.open;
end;

end.

----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★

作者：

hamilton (老鼠爱大米)	★☆☆☆☆	-
	普通会员

2003/5/24 15:29:00

2楼：

谢谢.不过没成功,可能使我没有表达清楚我的意图.我的意思是在用鼠标拖动DBGrid右侧的滑块的时候,让它的内容也跟着动,而不是像默认的状态那样等鼠标键抬起后才滚动内容.
----------------------------------------------
-

信息

登陆以后才能回复