TwinControl有一onMouseWheel Event(protected). Tform published此event,故From可接受滾輪移動.  TDBGrid 則未published此Event.無法直接使用,但由於為proteced,只要繼承即可使用 試試這個例子, Form上放Table, DataSource, DBGrid各一,Pas 如下unit dumy1;interfaceusesWindows, 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;varForm1: 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);begintable1.open;end;end.         發表人 - ddy 於 2003/02/24 18:18:20