给定一个圆心，如何画出同心圆。犹如圆型雷达一样！

[hsly110]

给定一个圆心，如何画出同心圆。犹如圆型雷达一样！

这个同心圆，大概包含4个圆，每个圆的半径都是 相差5.
比如 最外面的圆半径是100, 那么第二圆是95，第三个是90，第四个85.

我想循环画同心圆，做个雷达效果。

[hsly110]

多谢楼上各位解答。按照你们的方法，搞定了！

[lhy]

canvas.arc

[hjkto]

up

[mdejtod]

canvas.ellipse(rect : trect);
用一个循环，每次都改变rect的坐标和大小

[bdmh]

var
  i:Integer;
  rect:TRect;
begin
  Self.Canvas.Pen.Style := psSolid;
  Self.Canvas.Pen.Color := clRed;
  rect.Left := 100;
  rect.Right := 500;
  rect.Bottom := 500;
  rect.Top := 100;
  for i := 0 to 3 do
  begin
    rect.Left := rect.Left + i*20;
    rect.Right := rect.Right - i*20;
    rect.Top := rect.Top + i*20;
    rect.Bottom := rect.Bottom - i*20;
    Self.Canvas.Ellipse(rect);
  end;
end;