有没有人知道鼠标中间的那个键是怎么工作的

[梅文海]

在程序中如何知道用户点击或滚动中间的键。

[newwen]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if ssMiddle in Shift then
...
end;

[dancemaple]

拦截下面的消息
// 中键双击
WM_MBUTTONDBLCLK
// UP
WM_MBUTTONUP
// DOWN
WM_MBUTTONDOWN
// 滚动
WM_MOUSEWHEEL

[newwen]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if ssMiddle in Shift then
...
end;

[wylove]

通过判断mouseDown事件中的shift变量的值，例如：
Form1.FormMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;x,y:integer);
if shift>=[ssMiddle] then do sth;

[dancemaple]

最后一个只能用于WinNT、Win2k、WinXP