窗体图片背景

var

  Bitmap: TBitmap;



procedure TForm1.FormCreate(Sender: TObject);

begin

  Bitmap := TBitmap.Create;

  Bitmap.LoadFromFile('c:\temp\bg.bmp');

  Self.Brush.Bitmap := Bitmap;

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

  Bitmap.Free;

end;


 
   




//效果图:

---