如何在TImage里画完美的矩形和圆形？

Question

//画好在放进去
Image1.Canvas.Draw(Point.x, Point.y, Bitmap);

Answer 1

canvas.brush.style:=bsclear;在画前添加此行即可。

Answer 2

  Image1.Canvas.Polyline([Point(1, 1), Point(10, 1), Point(10, 10), Point(1, 10)]);

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: Integer;
begin
  case Random(5) of
    0: Image1.Canvas.Pen.Style := psSolid;
    1: Image1.Canvas.Pen.Style := psDash;
    2: Image1.Canvas.Pen.Style := psDot;
    3: Image1.Canvas.Pen.Style := psDashDot;
    4: Image1.Canvas.Pen.Style := psDashDotDot;
  end;
  Image1.Canvas.Brush.Style := bsClear;
  Image1.Canvas.Rectangle(X, Y, X + Random(400), Y + Random(400));
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: Integer;
begin
  X := Random(Screen.Width - 10);
  Y := Random(Screen.Height - 10);
  Image1.Canvas.Pen.Color := Random(65535);  case Random(5) of
    0: Image1.Canvas.Pen.Style := psSolid;
    1: Image1.Canvas.Pen.Style := psDash;
    2: Image1.Canvas.Pen.Style := psDot;
    3: Image1.Canvas.Pen.Style := psDashDot;
    4: Image1.Canvas.Pen.Style := psDashDotDot;
  end;
  Image1.Canvas.Brush.Style := bsClear;
  Image1.Canvas.Rectangle(X, Y, X + Random(400), Y + Random(400));
end;

Answer 5

我要在TImage利用鼠标拖动来画图，可能和你说的有些不同。不知道应该怎么样来实现。我现在是这样的：移动的时候擦除上一次画的，在重新画一个新的。但是这样做，和他重叠的，也就是刚画的图形也被擦除了。
怎么办啊？？？？帮帮忙，各位师兄！！！！