熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

DELPHI基礎教程:Delphi圖形圖像編程(一)[3]

2013-11-23 17:52:03  來源: Delphi編程 

   響應鼠標事件

  鼠標常被用作繪圖的工具應用程序利用鼠標位置的變化來繪制各種不同的圖形鼠標有三個動作鼠標按鈕按下鼠標移動鼠標按鈕彈起在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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.