Question

delphi怎样打开jpeg图片代码

用picturedialog,和，buttob,image怎么做？谢谢

点button1时，让image里打开一张图片

Answer 1

设置OpenPictureDialog控件的Filter属性.
假设OpenPictureDialog控件名为OPD
OPD.Filter :=
'JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg';

Answer 2

把三个控件放到form中，代码很简单。最主要的是在uses调用中加入jpeg库。
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,ExtDlgs, jpeg;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;