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游戏开发实践指南
lishixinzhi/Article/program/Delphi/201311/25249
