響應鼠標事件
鼠標常被用作繪圖的工具 應用程序利用鼠標位置的變化來繪制各種不同的圖形 鼠標有三個動作 鼠標按鈕按下 鼠標移動 鼠標按鈕彈起 在Delphi中 對應三個動作有三個不同的事件 OnMouseDown OnMouseMove OnMouseUp
當Dlephi應用程序探測到壹個鼠標動作時 它傳遞五個參數 並調用相應的事件響應
程序員可利用這些參數來定義事件程序 五個參數如下表 :
表 鼠標事件的五個參數
━━━━━━━━━━━━━━━━━━━━━━━━━━━
參數? 含義
──────────────────────────
Sender 探測鼠標動作的對象
Button 涉及的鼠標按鈕 左鍵 中鍵 右鍵
Shift 鼠標動作時 Alt Ctrl Shift按鈕的狀態
X Y? 事件發生時鼠標的坐標
━━━━━━━━━━━━━━━━━━━━━━━━━━━
當鼠標按下時發生OnMouseDown事件 舉壹個簡單例子來說明程序如何對該事件進
行響應 假如我們想在鼠標按下的地方出現 Here
響應鼠標的OnMouseDown事件
可在該事件中調用TextOut方法
procedure TForm FormMouseDown（Sender: TObject Button: TMouseButton;
Shift : TShifState; X Y : Integer）
begin
Canvas TextOut（X Y Here! ）
end;
用戶放松鼠標鍵時發生OnMouseUp事件 該事件發生時 鼠標到達的對象並不壹定是鼠標鍵按下時鼠標所在的對象 例如 用戶可在窗體之外畫壹條線段 （鼠標在窗體外 線段在窗體內） 下面的代碼可用鼠標繪制直線
procedure TForm FormMouseDown（Sender:TObject）
begin
Moveto（x y）
end;
procedure TForm FormMouse Up（Sender:Tobject）
begin
Lineto（X Y）
end;
返回目錄 DELPHI基礎教程
? 編輯推薦
? Java程序設計培訓視頻教程
? J EE高級框架實戰培訓視頻教程
Visual C++音頻/視頻技術開發與實戰
Oracle索引技術
ORACLE G數據庫開發優化指南
Java程序性能優化 讓妳的Java程序更快 更穩定
C嵌入式編程設計模式
Android遊戲開發實踐指南
lishixinzhi/Article/program/Delphi/201311/25249