Question

Delphi中窗体创建的时候画直线和圆,怎么做？

Answer 1

在窗体的OnPaint事件中，调用窗体的Canvas属性（画布对象）的各种方法，就可以画直线、圆、椭圆、矩形、。。。。

如：
procedure TForm1.FormPaint(Sender: TObject);
begin
canvas.Pen.Color:=clRed;
canvas.Ellipse(100,100,300,300);
end;

就能画出一个红色的圆。

注意：必须在OnPaint事件中写上述代码，否则，画出的圆如果被别的窗体遮挡的话，就会被“擦掉”。