var Bmp: TBitmap; procedure TForm1.FormCreate(Sender: TObject); begin Bmp := TBitmap.Create; Bmp.LoadFromFile(‘D:\test.bmp‘); Brush.Bitmap := Bmp; end; procedure TForm1.FormDestroy(Sender: TObject); begin Bmp.Free; end;
delphi 窗体添加背景图片,布布扣,bubuko.com
原文：http://my.oschina.net/jingshishengxu/blog/299892