openpicturedialog1在对话框中预览图片

功能说明：openpicturedialog1在对话框中预览图片 

procedureTForm1.Button1Click(Sender: TObject);
begin
  ifOpenPictureDialog1.Executethen
  begin
    showmessage(OpenPictureDialog1.FileName);
  end;
end;

通过 Wiz 发布