【delphi源代码】在delphi窗口中平铺图片背景

在delphi窗口中平铺图片背景的事件
在delphi应用中我们经常需要在窗体中平铺图片，已获得更好的视觉效果。这个事件很好的实现了这个要求。
procedure TForm1.FormCreate(Sender: TObject);
begin
Bitmap:=TBitmap.Create;
Bitmap.LoadFromFile('ATHENA.BMP');
Self.Brush.Bitmap:=Bitmap;
end;