delphi 窗体添加背景图片

var
  Bmp: TBitmap;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Bmp := TBitmap.Create;
  Bmp.LoadFromFile('F:\visentest\0432_BMP.Cool\abcd.bmp');
  Brush.Bitmap := Bmp;
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
  Bmp.Free;

end;

--visen 备注 dfm文件的读写

http://blog.youkuaiyun.com/longma2006/article/details/2683515