请问如何在主窗体上画一bmp幅图片?

Question

请问如何在主窗体上画一bmp幅图片?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
pic:tbitmap;
begin
pic:=tbitmap.create;
pic.LoadFromFile('C:\WINDOWS\Sandstone.bmp');
form1.Canvas.Draw(0,0,pic);
end;

Answer 2

这样就可以了，在FormCreate和FormPaint事件下处理：
procedure TForm1.FormCreate(Sender: TObject);
begin
  bitmap:=tbitmap.Create;
  bitmap.LoadFromFile('ppmm.bmp'); //读入要显示的bmp图片
end;//在主窗体上平铺bmp图片
procedure TForm1.FormPaint(Sender: TObject);
var
  x,y,w,h:longint;
begin
  with bitmap do
  begin
    w:=width;
    h:=height;
  end;
  y:=0;
  while y<height do
  begin
    x:=0;
    while x<width do
    begin
      canvas.Draw(x,y,bitmap);
      inc(x,w);
    end;
    inc(y,h);
  end;
end;