滾輪狀態 |
|
|
|
adonis
高階會員   發表：140 回覆：258 積分：159 註冊：2002-04-15 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
|
|
adonis
高階會員 發表：140 回覆：258 積分：159 註冊：2002-04-15 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
引言: 能否舉個例子，因為我不是很明白，謝謝。試試這個例子, Form上放Table, DataSource, DBGrid各一, Pas 如下 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. |
|
linkolong
一般會員  發表：4 回覆：35 積分：12 註冊：2002-04-23 發送簡訊給我 |
|
|
adonis
高階會員 發表：140 回覆：258 積分：159 註冊：2002-04-15 發送簡訊給我 |
|
|
linkolong
一般會員 發表：4 回覆：35 積分：12 註冊：2002-04-23 發送簡訊給我 |
在OnMouseWheel事件中wheeldelta接收滾輪狀態
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
form1.Caption:=inttostr(wheeldelta);
end;
此時當滾輪向上則form1.Caption顯示120,向下則顯示-120
|
|
adonis
高階會員 發表：140 回覆：258 積分：159 註冊：2002-04-15 發送簡訊給我 |
發表時間：2002-06-05 16:34:15
IP:163.28.xxx.xxx 未訂閱
系統時間：2024-04-20 17:28:21
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |