怎么加form 的背景图片

Question

怎么加form 的背景图片

Answer 1

procedure TForm1.FormPaint(Sender: TObject);
var  bkg:tbitmap; 
  i,j:integer;
begin
  bkg:=tbitmap.Create;
  try
    bkg.LoadFromFile('背景图案(bmp)的绝对路径');
    canvas.Brush.Bitmap:=bkg;
    for i:=0 to (form1.Width div bkg.Width+1) do
      for j:=0 to (form1.Height div bkg.Height+1) do
        form1.Canvas.Draw(i*bkg.Width,j*bkg.Height,bkg);
  finally
   bkg.Free;
  end;
end;

Answer 2

var
    b:TBitmap;
begin
    b:=TBitmap.Create;
    b.LoadFromFile('文件名.bmp');  //  或者LoadFromResourceName之类
    Form.Canvas.Draw(0,0,b);
再在Form的Paint事件中写:
    Form.Canvas.Draw(0,0,b);
否则,窗体改变时,背景图片不会恢复.