知识大全 Delphi图形图像编程（一）[3]

Posted 2022-07-22 事件

篇首语：男儿欲遂平生志，五经勤向窗前读。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi图形图像编程（一）[3]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：Delphi图形图像编程（一）[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 响应鼠标事件

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

cha138/Article/program/Delphi/201311/25249