Estou utilizando um código para perguntar para o usuário se ele deseja salvar as alterações antes de sair do programa (botões Sim, Não e Cancelar).
O problema é que quando o usuário clica para salvar antes de sair (botão Sim) se ele fechar o SaveDialog que foi aberto, o programa é finalizado sem salvar nada (o correto seria o programa não finalizar, porque o usuário desistiu de salvar).
Estou utilizando o seguinte código:
private
{ Private declarations }
FFileName: string;
resourcestring
sSaveChanges = 'Salvar alterações de %s?';
procedure TFrmMain.CheckFileSave;
var
SaveResp: Integer;
begin
if REdtMinhaLista.Modified = false then Exit; //se o RichEdit for modificado
SaveResp := MessageDlg(Format(sSaveChanges, [FFileName]),
mtConfirmation, mbYesNoCancel, 0);
case SaveResp of
idYes: SaveDocument; //problema: se o usuário clicar "Sim" e fechar o SaveDialog o programa fecha.
idNo: ; //Nothing
idCancel: Abort;
end;
end;
procedure TFrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
try
CheckFileSave;
except
CanClose := False;
end;
end;
Procedimento para salvar documento:
procedure TFrmMain.SaveDocument;
begin
if FFileName = sUntitled then
SaveAsDocument
else
begin
REdtMinhaLista.Lines.SaveToFile(FFileName);
REdtMinhaLista.Modified := False;
SetModified(False);
end;
end;
Como eu poderia resolver esse problema?
SaveDocument