关于在Timage上画线的问题,奇怪

Question

我在一个Timage控件上画线,
  image2.Transparent:=true;
  image2.Canvas.MoveTo(0,0);
  image2.Canvas.LineTo(100,100);
但是画完了 image2的背景就变成白色的了,不是透明的了,怎么回事呢?

Answer 1

估计你是需要在image上画一条线，然后背景是透明的。。把背景填充一下就可以了。procedure TForm1.BitBtn1Click(Sender: TObject);
var
 a : TRect;
begin
   a.Left := 0;
   a.Top := 0;
   a.Right := Image1.Width;
   a.Bottom := Image1.Height;
   Image1.Transparent := true;
   with Image1.Canvas do
   begin
     Brush.Color := clBlue;
     FillRect(a);     Pen.Color := clRed;
     MoveTo(0,0);
     LineTo(100,100);
   end;
end;