怎样获取在canvas 画线的事件

chard 2003-02-21 03:36:42
var
stx,sty,midx,midy,endx,endy: integer ;
p1,p2,p3,p4,p5,p6 : TPoint ;



MapCanvas := TmpCanvas ;
MapCanvas.Pen.Color := clblack;
MapCanvas.MoveTo(stx,sty);
MapCanvas.LineTo(midx,midy);
MapCanvas.LineTo(endx,endy);
MapCanvas.Brush.Color := clBlack;
MapCanvas.Polygon([p1,p2,p3]);
MapCanvas.Polygon([p4,p5,p6]);

画好线后怎样在线条中获取鼠标双击事件!
多谢!
...全文
56 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
blueshrimp 2003-06-02
  • 打赏
  • 举报
回复
呵呵,用TSHAPE吧
2373088 2003-06-02
  • 打赏
  • 举报
回复
我也碰到这个问题,guestman(天涯浪子) 有这样实现的例子可下载吗?
guestman 2003-02-21
  • 打赏
  • 举报
回复
在mousedown中获取鼠标指针的坐标;
在双击事件中判断该坐标是否在线条中,如果在,则响应事件!

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧