delphi中開啟圖片例項demo——2014005
阿新 • • 發佈:2019-01-03
寫程式中,我們往往需要開啟圖片,或者開啟其他檔案,以下是一個最 簡單的開啟檔案操作;
原始檔下載地址:http://download.csdn.net/detail/cq20110310/6857603
unit uOpenFile; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ExtDlgs,jpeg; type TForm1 = class(TForm) btnOpenFile: TButton; image: TImage; OpenDialog: TOpenDialog; procedure btnOpenFileClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnOpenFileClick(Sender: TObject); var openPath:string; begin OpenDialog.Title := '開啟圖片'; OpenDialog.filter := '全部 (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf;*.png)|*.jpg;*.jpeg;*.bmp;*.i' + 'co;*.emf;*.wmf;*.png|JPEG 影象檔案 (*.jpg)|*.jpg|JPEG 影象檔案 (*.jpeg)|*.jpeg' + '|點陣圖 (*.bmp)|*.bmp|圖示 (*.ico)|*.ico|增強圖元檔案 (*.emf)|*.emf|圖元檔案 (*.' + 'wmf)|*.wmf|可移植圖片(*.png)|*.png'; if openDialog.Execute then begin openPath:=OpenDialog.FileName; image.Picture.LoadFromFile(openPath); image.AutoSize:=False; image.Stretch:=True; end; end; end.