随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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;

//效果图:

posted on 2008-02-10 15:48  万一  阅读(...)  评论(...编辑  收藏