//使用畫刷的 Bitmap 屬性則可以使用圖片填充.procedure TForm1.FormClick(Sender: TObject);
var
bit: TBitmap;
begin
bit := TBitmap.Create;
bit.LoadFromFile('c:\temp\bg.bmp');
Canvas.Brush.Bitmap := bit;
Canvas.Ellipse(0, 0, ClientWidth, ClIEntHeight);
bit.Free;
end;
//效果圖: