delphi 窗体上画任意方向带箭头的直线全套源码，程序启动后在主窗体直接用鼠标左键拖动可画出任意方向的带箭头的直线。
2022-01-10 11:24:49
165KB
1
线条控制已经做了封装
var line = new Line();
挂号的四个值代表x1、y1、x2、y2
x1,y1表示起始点坐标
x2、y2表示结束点坐标(有箭头的一边)
line.drawArrowLine(10, 10, 10, 100);
删除线条
line.remove()
设置颜色
line.setColor(newColor)
2021-11-03 09:38:47
4KB
1