简述图形和图像的联系 DELPHI基础教程：Delphi图形图像编程（一）[3]

DELPHI基础教程：Delphi图形图像编程（一）[3]  

　　响应鼠标事件

　　鼠标常被用作绘图的工具 应用程序利用鼠标位置的变化来绘制各种不同的图形 鼠标有三个动作 鼠标按钮按下 鼠标移动 鼠标按钮弹起 在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游戏开发实践指南