TImage 控件实例

最新推荐文章于 2025-08-19 10:31:52 发布

原创最新推荐文章于 2025-08-19 10:31:52 发布 · 1.2k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#TImage

Delphi Xe3 专栏收录该内容

28 篇文章

订阅专栏

本文深入探讨了TImage控件在Delphi编程中的使用，包括如何加载图片、调整大小、设置透明度以及与其他组件交互等核心功能。通过实例代码解析，帮助开发者更好地理解和运用TImage组件。

//需要引用 JPEG单元 直接从内存显示图片
  Var
    Jpg: TJPEGImage;
  Begin
    IdHTTP1.Get(Gz.Groups[1], Stream);
    Jpg := TJPEGImage.Create;
    Stream.Position := 0;
    Jpg.LoadFromStream(Stream);
    Image3.Picture.Assign(Jpg);
  End;

//直接显示本地图片 需要引用 JPEG单元
Begin
   Form1.Image3.Picture.LoadFromFile('C:\123.Jpg');
End;

//显示Bmp位图
Var
  Bmp: TBitmap;
Begin
  Bmp := TBitmap.Create;
  Bmp.LoadFromFile('C:\123.bmp');
  Image1.Picture.Bitmap := Bmp;
End;

{屏幕截图}
Var
  Bit: TBitMap;
  Dc: HDC;
  Can: TCanvas;
begin
  Dc := GetDc(0);
  Can := TCanvas.Create;
  Can.Handle := Dc;
  Bit := TBitMap.Create;
  Bit.Width := Screen.Width;
  Bit.Height := Screen.Height;
  Bit.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), Can, Rect(0, 0, Screen.Width, Screen.Height));
  Bit.SaveToFile('c:\bac.bmp');
end;

{指定窗口截图,被遮挡也可以,但不能最小化}
Var
  Bit: TBitMap;
  A: hwnd;
  Rec: TRect;
begin
  A := FindWindow(Nil, '计算器');
  GetWindowRect(A, Rec);
  Bit := TBitMap.Create;
  Bit.Width := Rec.Width;
  Bit.Height := Rec.Height;
  Bit.PixelFormat := pf24bit;
  PrintWindow(A, Bit.Canvas.Handle, 0);
  Bit.SaveToFile('c:\bac.bmp');
  ClipBoard.Assign(Bit);  //把截图放到剪贴板里
end;