在窗体的OnPaint事件中，调用窗体的Canvas属性（画布对象）的各种方法，就可以画直线、圆、椭圆、矩形、。。。。
如：
procedure TForm1.FormPaint(Sender: TObject);
begin
canvas.Pen.Color:=clRed;
canvas.Ellipse(100,100,300,300);
end;
就能画出一个红色的圆。
注意：必须在OnPaint事件中写上述代码，否则，画出的圆如果被别的窗体遮挡的话，就会被“擦掉”。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024