一个form有没有背景属性（图片）的？

Question

procedure TForm1.FormResize(Sender: TObject);
begin
  image1.visible := false;
  canvas.StretchDraw(Self.ClientRect, image1.Picture.Graphic);
end;

Answer 1

xzm2000(不不)(每天都要进步)　
好象还有什么地方没有设置吧，我按照你的程序，运行没有背静！

Answer 2

呵呵！应该还在 CREATE 事件中写这个事件。

Answer 3

在resize中可以的，你要把image中加载一副图片先

Answer 4

to xzm2000(不不)(每天都要进步)
不要在form的draw事件里加代码吗，那不是如果有窗体在form1上面移动，form1的背景会不会被“抹”掉？

Answer 5

看看这个代码，希望对你有帮助。事先放一个image1，并装入图片。  self.Brush.Bitmap:= Image1.Picture.Bitmap;
  self.Refresh();

Answer 6

对了，这个代码只支持bmp图片，jpeg的需要改改。