DELPHI基礎教程：Delphi圖形圖像編程（一）[3]

　　 響應鼠標事件

　　鼠標常被用作繪圖的工具應用程序利用鼠標位置的變化來繪制各種不同的圖形鼠標有三個動作鼠標按鈕按下鼠標移動鼠標按鈕彈起在Delphi中 對應三個動作有三個不同的事件OnMouseDownOnMouseMoveOnMouseUp

　　當Dlephi應用程序探測到一個鼠標動作時它傳遞五個參數並調用相應的事件響應

　　程序員可利用這些參數來定義事件程序五個參數如下表:

　　表 鼠標事件的五個參數

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　參數               含義

　　──────────────────────────

　　Sender    探測鼠標動作的對象

　　Button    涉及的鼠標按鈕左鍵中鍵右鍵

　　Shift        鼠標動作時AltCtrlShift按鈕的狀態

　　XY          事件發生時鼠標的坐標

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　當鼠標按下時發生OnMouseDown事件舉一個簡單例子來說明程序如何對該事件進

　　行響應假如我們想在鼠標按下的地方出現Here

　　響應鼠標的OnMouseDown事件

　　可在該事件中調用TextOut方法

　　procedure TFormFormMouseDown（Sender: TObjectButton: TMouseButton;

　　Shift : TShifState; XY : Integer）

　　begin

　　CanvasTextOut（X Y Here!）

　　end;

　　用戶放松鼠標鍵時發生OnMouseUp事件該事件發生時鼠標到達的對象並不一定是鼠標鍵按下時鼠標所在的對象例如用戶可在窗體之外畫一條線段（鼠標在窗體外線段在窗體內）下面的代碼可用鼠標繪制直線

　　procedure TFormFormMouseDown（Sender:TObject）

　　begin

　　Moveto（xy）

　　end;

　　procedure TFormFormMouse Up（Sender:Tobject）

　　begin

　　Lineto（X Y）

　　end;

　　返回目錄DELPHI基礎教程

       編輯推薦

       Java程序設計培訓視頻教程

       JEE高級框架實戰培訓視頻教程

　　Visual C++音頻/視頻技術開發與實戰

　　Oracle索引技術

　　ORACLEG數據庫開發優化指南

　　Java程序性能優化讓你的Java程序更快更穩定

　　C嵌入式編程設計模式

　　Android游戲開發實踐指南

[]  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/25249.html