Question

Delphi鼠标滚轮如何编程

Answer 1

我们使用的鼠标，很多都带有一个滚轮，方便用户的操作。但遗憾的是，平时编程多数只利用到鼠标的左、右两键，如果将滚轮操作功能也加进你的程序，定能使其增色不少。 当鼠标指针指向窗体中时，Delphi为滚轮滚动提供OnMouseWheel事件，我们可以对它进行相应的处理。本例中，在窗体内放置一标签Label1，用于显示滚轮滚动的效果。 implementation var i:integer; procedure TForm1.FormCreate(Sender: TObject); begin i:=0; Label1.Caption:=inttostr(i); end; procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin if WheelDelta>0 then i:=i+1 else i:=i-1; //wheelDelta参数表示滚动一格的值，向上滚动为正数，向下滚动则为负数 Label1.Caption:=inttostr(i); end;