功能说明:openpicturedialog1在对话框中预览图片 procedureTForm1.Button1Click(Sender: TObject);begin ifOpenPictureDialog1.Executethen begin showmessage(OpenPictureDialog1.FileName); end;end;