窗体图片背景

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;


//效果图:

---