delphi xe OpenDialog 打开并显示image代码

你可以使用以下代码在 Delphi XE 中打开 OpenDialog 对话框，选择一张图片并显示在 TImage 控件中：

var
  MyPicture: TPicture; // 定义 TPicture 对象
  MyOpenDialog: TOpenDialog; // 定义 TOpenDialog 对象
begin
  MyOpenDialog := TOpenDialog.Create(nil); // 创建 TOpenDialog 对象
  try
    MyOpenDialog.Filter := '图片文件|*.bmp;*.jpg;*.jpeg;*.png;*.gif'; // 设置对话框的文件过滤器
    if MyOpenDialog.Execute then // 显示 OpenDialog 对话框并判断是否选择了文件
    begin
      MyPicture := TPicture.Create; // 创建 TPicture 对象
      try
        MyPicture.LoadFromFile(MyOpenDialog.FileName); // 加载选择的图片
        Image1.Picture.Assign(MyPicture); // 把图片对象赋值给 Image1 控件的 Picture 属性
      finally
        MyPicture.Free; // 释放 TPicture 对象
      end;
    end;
  finally
    MyOpenDialog.Free; // 释放 TOpenDialog 对象
  end;
end;

其中，`Image1` 是一个 TImage 控件，用于显示图片。对话框的文件过滤器可以根据你的需要进行修改。