学步园

//声明:
CreatePatternBrush(
  Bitmap: HBITMAP {位图句柄}
): HBRUSH;        {返回画刷句柄}


//举例:
procedure TForm1.FormPaint(Sender: TObject);
var
  Bitmap: TBitmap;
  BrushHandle: HBRUSH;
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('c:\temp\bg.bmp');
  BrushHandle := CreatePatternBrush(Bitmap.Handle);
  FillRect(Canvas.Handle, ClientRect, BrushHandle);
  DeleteObject(BrushHandle);
end;


//效果图:

---