程序中用 TPanel 做了容器, 需要给它一个背景图片; 发现这竟是个难题!

发现我经常使用的滚动箱控件 TScrollBox, 是一个很好的替代品.
代码文件: 
 
  
 Unit1;


  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

  TForm1 = (TForm)
    ScrollBox1: TScrollBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
     FormCreate(Sender: TObject);
     FormDestroy(Sender: TObject);
     Button1Click(Sender: TObject);
     Button2Click(Sender: TObject);
     Button3Click(Sender: TObject);
     Button4Click(Sender: TObject);
  ;

  Form1: TForm1;



  bg1,bg2: TBitmap; 
 TForm1.FormCreate(Sender: TObject);

  bg1 := TBitmap.Create;
  bg2 := TBitmap.Create;
  
  bg1.LoadFromResourceName(HInstance, );
  bg2.LoadFromResourceName(HInstance, );
  
;
 TForm1.FormDestroy(Sender: TObject);

  bg1.Free;
  bg2.Free;
;

 TForm1.Button1Click(Sender: TObject);

   ScrollBox1 
  
    BevelKind := bkSoft;
    BevelOuter := bvRaised;
    BorderStyle := BsNone;
    AutoScroll := False;
  ;
;
 TForm1.Button2Click(Sender: TObject);

  Self.Brush.Bitmap := bg1;
  Self.Refresh;
;
 TForm1.Button3Click(Sender: TObject);

  ScrollBox1.Brush.Bitmap := bg2;
  ScrollBox1.Refresh;
;
 TForm1.Button4Click(Sender: TObject);

   Self.Brush.Bitmap = bg1 
  
    Self.Brush.Bitmap := bg2;
    ScrollBox1.Brush.Bitmap := bg1;
    
    Self.Brush.Bitmap := bg1;
    ScrollBox1.Brush.Bitmap := bg2;
  ;
  Self.Refresh;
  ScrollBox1.Refresh;
;
.