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