delphi image 控件


procedure TForm1.FormCreate(Sender: TObject);
var
  img1, img2, img3: TImage;
begin
  img1 := TImage.Create(Self);
  with img1 do
  begin
    Name := 'img1';
    Parent := Self;
    Width := 120;
    Height := 140;
    Left := 10;
    Top := 10;
    Picture.Bitmap.LoadFromFile('c:\1.bmp'); // 自己找张图片
    Picture.Bitmap.Canvas.TextOut(50,80,Name);
  end;  img2 := TImage.Create(Self);
  with img2 do
  begin
    Name := 'img2';
    Parent := Self;
    Width := 120;
    Height := 140;
    Left := 80;
    Top := 20;
    Picture.Bitmap.LoadFromFile('c:\1.bmp'); // 自己找张图片
    Picture.Bitmap.Canvas.TextOut(50,80,Name);
  end;  img3 := TImage.Create(Self);
  with img3 do
  begin
    Name := 'img3';
    Parent := Self;
    Width := 120;
    Height := 140;
    Left := 160;
    Top := 40;
    Picture.Bitmap.LoadFromFile('c:\1.bmp'); // 自己找张图片
    Picture.Bitmap.Canvas.TextOut(50,80,Name);
  end;  // img2 在最前端
  SetChildOrder(img2,2);
end;