if SavePicDlg.Execute then
begin
if FileExists(SavePicDlg.FileName) then
begin
if Windows.MessageBox(self.Handle,'文件已经存在,是否覆盖?','提示框',MB_YESNO+MB_ICONQUESTION)=IDYES then
begin
self.Image1.Picture.SaveToFile(SavePicDlg.FileName);
end
else
begin
exit;
end;
end
else
begin
self.Image1.Picture.SaveToFile(SavePicDlg.FileName);
end;
MessageBox(self.Handle,'保存成功!','提示框',MB_OK);
end;