delphi 窗口图片平铺

{
关键字=图片平铺
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 14:22:04
数字签名=03C34843E327192C8290C1B82868AF8D
}

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

procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
{图片平铺}
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(‘d:\vlc\2.bmp’);
Form1.Canvas.Brush.Bitmap := Bitmap;
Form1.Canvas.FillRect(Rect(0, 0, screen.Width, screen.Height));
finally
form1.Canvas.Brush.Bitmap := nil;
Bitmap.Free;
end;
end;