openpicturedialog 如何打开jpg和jpeg格式的图片

Question

在uses中加入jpeg单元即可！
如：
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls , jpeg;
……

Answer 1

全部源程式如下 :unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ExtDlgs,jpeg;type
  TForm1 = class(TForm)
    Image: TImage;
    OpenPictureDialog: TOpenPictureDialog;
    Panel1: TPanel;
    OpenPicture: TButton;
    procedure OpenPictureClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.OpenPictureClick(Sender: TObject);
begin
if OpenPictureDialog.Execute then Image.Picture.LoadFromFile(OpenPictureDialog.Filename);
end;end.

Answer 2

d5 的OpenPictureDialog本身可以浏览JPG格式的文件啊！