怎么得到鼠标的第三键的滑动事件？

Question

你用的是Query控件吗？
在Query控件的AfterScroll事件。
用这个事件的话都是和数据库有关的操作，不需要知道向上还是向下！

Answer 1

有两个事件：MouseWheelDown，MouseWheelUp可以试一试

Answer 2

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Caption := Format('下 %.6f', [Now]);
end;procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Caption := Format('上 %.6f', [Now]);
end;

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMMouseWheel(var msg:TMessage);message WM_MOUSEWHEEL;
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.WMMouseWheel(var msg: TMessage);
var
  zFlag:Integer;
begin
  zFlag := msg.WParam;
  if zFlag>0 then ShowMessage('上') else ShowMessage('下');
end;end.

Answer 4

伴水的方法有效， 我已试过
非常感谢！
WnEunfn(斯人不语) 
你的方法我比较喜欢，可是我已经结贴了：（