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游戏开发实践指南

[] [] []