请问怎么样才能在窗体上加栽图片，在不用Image的情况下？（在线等待）

Question

怎么才能不用Image就可以在窗体上加载图片，而且使标签的背景透明，谢谢！

Answer 1

Bitmap.LoadFromFile('hotdog.bmp');
Canvas.Draw(10, 10, Bitmap);

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  BMP: TBitMap;
begin
  BMP := TBitMap.Create;
  BMP.LoadFromFile('D:\WINNT\Blue Lace 16.bmp');
  with Form1.Canvas do
  begin
    Brush.Style := bsClear;
    CopyRect(Rect(0, 0, Width, Height), BMP.Canvas, Rect(0, 0, BMP.Width, BMP.Height));
  end;
  BMP.Free;
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 3

Image1.Picture.LoadFromFile(PicFileName);
Form1.Canvas.Brush.Bitmap := Image1.Picture.Bitmap;哈哈.这是最简单的方法了.有人自己读入图形文件后在表单上绘制.

Answer 4

procedure TForm1.FormPaint(Sender: TObject);
var
  bmp: Tbitmap;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('e:\test.bmp');
  self.Canvas.CopyRect(Rect(0, 0, self.Width, self.Height), bmp.Canvas, Rect(0, 0, bmp.Width, bmp.Height));
end;