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]);画好线后怎样在线条中获取鼠标双击事件!
多谢!
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]);画好线后怎样在线条中获取鼠标双击事件!
多谢!
解决方案 »
- 想向一个窗体模拟CTRL+F按键效果,FindWindow以后怎么写?
- 问一个简单的指针问题
- WebServices 问提
- 关于ACCESS中MEMO字段显示的问题!!!
- 过年了,分数太多,散点分之10
- 统计哈尔滨市DELPHI程序员,希望大家组成互助同盟!!!
- 有没有wm_Mouseup消息啊?
- 我安装的D6伴侣CD里面的ABC & LMD-Tools V5.0 SE 控件为什么老找不到abctabf.dcu,而且在硬盘上找不到这个文件。
- 关于webbrowser的向前后退问题.
- 怎样在StringGrid中加入其他控件?
- 一个关于软件架构和Dll的问题,进者有分,感兴趣的可以近来交流,在线等待!
- 请问哪有免费的打包软件下载啊?
在双击事件中判断该坐标是否在线条中,如果在,则响应事件!