请教各位:双飞燕鼠标的附加键的响应事件应该如何截取？

Question

你可以用spy++来查一下这个动做是什么消息然后截获它就行了.现在我没有双飞燕鼠标,加家后我去试试

Answer 1

我倒有的，能不能测试的出？
只是spy++不知怎么用。

Answer 2

如果你说的是MOUSE的中键,则在OnMouseDown之类的事件中就可以判断了
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin 
  if Button=mbMiddle then ...end;如果是滚轮则需要响应FORM的OnMouseWheel事件
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  ... 
end;