Delphi 7 saveDialog 小疑点

2012-09-18

Delphi 7 saveDialog 小问题我用SaveDialog保存文件,当文件存在时显示对话框让用户选择覆盖文件还是取消,

Delphi 7 saveDialog 小问题
我用SaveDialog保存文件,当文件存在时显示对话框让用户选择覆盖文件还是取消, 这个时候SaveDialog对话框也关闭了,如何让savedialog对话框不关闭,代码如下

if SaveDialog.Execute then
begin
if FileExiste(SaveDialog.Filename) then
begin
if MessageBox(0, '文件已存在,是否覆盖', 'information', MB_OKCANCEL) = MB_OK then
Memo1.Lines.SaveToFile(SaveDialog.FileName) //此时SaveDialog已经关闭, 当选择取消时候,还得重新打开saveDialog .如何不关闭,可以直接重新在SaveDialog中输入文件名.
....
end;
end;
下面应该怎么写, 谢谢

[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);begin  if SaveDialog1.Execute then    memo1.Lines.SaveToFile(SaveDialog1.FileName);end;procedure TForm1.SaveDialog1CanClose(Sender: TObject; var CanClose: Boolean);begin  if FileExists(SaveDialog1.FileName) then    CanClose:=MessageBox(0,'文件已存在,是否覆盖','information',MB_OKCANCEL)=MB_OK;end;
[解决办法]
在onCanClose事件判斷，像樓上的就行

热点排行

.NET

Delphi 7 saveDialog 小疑点