Delphi鼠標滾輪如何編程

我們使用的鼠標，很多都帶有壹個滾輪，方便用戶的操作。但遺憾的是，平時編程多數只利用到鼠標的左、右兩鍵，如果將滾輪操作功能也加進妳的程序，定能使其增色不少。當鼠標指針指向窗體中時，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;

上一篇:VIS是什麽?

下一篇:2012年諾貝爾生理學或醫學獎的獎項得主山中伸彌