TImage 控件实例

最新推荐文章于 2019-02-13 02:32:15 发布

小小de巫师

最新推荐文章于 2019-02-13 02:32:15 发布

阅读量1k

点赞数

分类专栏： Delphi Xe3 文章标签： TImage

本文链接：https://blog.csdn.net/gfuchao/article/details/8992913

版权

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

摘要由CSDN通过智能技术生成

//需要引用 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.He