delphi显示jpg、png、gif图片

最新推荐文章于 2024-10-25 14:26:26 发布

原创最新推荐文章于 2024-10-25 14:26:26 发布 · 8.2k 阅读

8 ·

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

标签

#delphi #button #forms #windows #class

Delphi 专栏收录该内容

19 篇文章

订阅专栏

本文介绍使用Delphi编程语言加载并显示不同类型的图片文件，包括JPG、PNG和GIF格式。通过创建按钮事件来演示如何加载这些图片，并特别展示了如何处理GIF动画。

delphi显示jpg、png、gif图片 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses jpeg, GIFImg, pngimage; {显示 jpg 图片} procedure TForm1.Button1Click(Sender: TObject); var jpg: TJPEGImage; begin jpg := TJPEGImage.Create; jpg.LoadFromFile('C:/Temp/Test.jpg'); Canvas.Draw(0, 0, jpg); jpg.Free; end; {显示 png 图片} procedure TForm1.Button2Click(Sender: TObject); var png: TPngImage; begin png := TPngImage.Create; png.LoadFromFile('C:/Temp/Test.png'); Canvas.Draw(0, 0, png); png.Free; end; {显示 gif 图片} procedure TForm1.Button3Click(Sender: TObject); var gif: TGIFImage; begin gif := TGIFImage.Create; gif.LoadFromFile('C:/Temp/Test.gif'); Canvas.Draw(0, 0, gif); gif.Free; end; {显示 gif 动画} procedure TForm1.Button4Click(Sender: TObject); var gif: TGIFImage; begin gif := TGIFImage.Create; gif.LoadFromFile('C:/Temp/Test.gif'); gif.Animate := True; with TImage.Create(Self) do begin Parent := Self; Left := 0; Top := 0; Picture.Assign(gif); end; gif.Free; end; end.