有关TImage控件的问题，请指教，up有分，多谢！

Question

我现在在用TIMage控件来画图形，例如圆，直线，矩形等等。用的是canvas类画的！我设置了Timage的底色为黑色，但是只要一画图，image的底色就变成白色的了！是不是canvas的操作改变了他的底色，还是有其他的原因？现在的现象就是鼠标一点上去画图就变成白色的底了！这种情况该如何解决？我试过用paintbox画图，画图的时候和image一样，没有任何问题，但是窗口一切换，画出的图形就不见了？这种情况该如何解决？谢谢大家了！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Image1.Canvas.Brush.Color := clblack;//加上这句代码可以控制画出的图的颜色
  Image1.Canvas.Ellipse(100,100,15,15);
  Image1.Transparent := true;//这样设置就和窗体的颜色一样了
end;

Answer 2

作一个你所要颜色的bmp图，将Image的picture设为这个图就可以了。