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

[whatname]

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

[yyjzsl]

关注下，学习

[wudi_1982]

正常的。

[wudi_1982]

说说你需要的效果。

[wudi_1982]

估计你是需要在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;