Form1.DrawStyle = 2Line (x1, y1)-(x2, y2)即可 画点划线的话可以使Form1.DrawStyle = 3，这个属性的值可以从1取到6，你可以取不同值看效果
Line (x1, y1)-(x2, y2)Form1.DrawStyle = 3
