如何画圆形和线条

Question

如何画圆形和线条

Answer 1

TCanvas.Ellipse(x1,y1,x2,y2)
TCanvas.MoveTo(x,y)       移动画笔至坐标
TCanvas.LineTo(x,y)       画直线至坐标
只要从TGraphicControl或TCustomControl继承的控件,都有Canvas属性.

Answer 2

Canvas.Ellipse(x1,y1,x2,y2);
Canvas.MoveTo(x,y)      
Canvas.LineTo(x,y)

Answer 3

Canvas.Ellipse(x1,y1,x2,y2);
Canvas.MoveTo(x,y)      
Canvas.LineTo(x,y)

Answer 4

你只要放一个IMAGE控件就可以了，，看一下帮助

Answer 5

放个Shape 控件最简单不过了