怎么让窗体小图片的背景重复显示布满窗体？

Question

如题~

Answer 1

//参考如下代码～～
procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Visible := False;
end;procedure TForm1.FormPaint(Sender: TObject);
var
  I, J: Integer;
begin
  I := 0;
  while I <= Width do
  begin
    J := 0;
    while J <= Height do
    begin
      Canvas.Draw(I, J, Image1.Picture.Graphic);
      J := J + Image1.Picture.Height;
    end;
    I := I + Image1.Picture.Width;
  end;
end;

Answer 2

在formcreate中给
self.brush.bitmap赋值

Answer 3

参考Delphi自带的例子。
\Program Files\Borland\Delphi5\Help\Examples\Bitmap

Answer 4

在formcreate中给
self.brush.bitmap赋值这样可以self.Brush.Bitmap.LoadFromFile();

Answer 5

procedure TFrmLogo.FormShow(Sender: TObject);
begin
  DllHandle := LoadLibrary ('lib\yepef.dll');  //加载DLL含又资源图片
  if DllHandle> 0 then
  try
    stream:=TResourceStream.Create(DllHandle,'LOGO',RT_RCDATA);
    MyJpg:=TJPEGImage.Create;
    MyJpg.LoadFromStream(stream);
    Image1.Picture.Assign(MyJpg);
  finally
    MyJpg.Free;
    Stream.Free;
    FreeLibrary (DllHandle)
  end
  else
  ShowMessage ('Library not found');
end;procedure TFrmLogo.FormPaint(Sender: TObject);
var
  I, J: Integer;
begin
  I := 0;
  while I <= Width do
  begin
    J := 0;
    while J <= Height do
    begin
      Canvas.Draw(I, J, Image1.Picture.Graphic);
      J := J + Image1.Picture.Height;
    end;
    I := I + Image1.Picture.Width;
  end;
end;