проверка изменений в Memo и сохранение

[Костян Пират]

проблема: перед закрытием окна приложения нужно проверить, были ли произведены какие-либо изменения в Memo и, если были, то предложить их сохранить.

попытка решения:

procedure TForm3.Save;
begin
 if SaveDialog1.Execute
  then
   begin
    Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
    Memo1.Modified:=false;
   end;
end;

procedure TForm3.AltF4Click(Sender: TObject);
var
 rez: TModalResult;
begin
 if Memo1.Modified
  then
  begin
   rez:=MessageDlg('Текст решения не был сохранён.'+#13#10+
         'Хотите сохранить его перед выходом?',mtConfirmation,[mbYes,mbNo],0);
   if rez=mrOK then Save;//вот ошибка-то...
  end;
end;

[Jeni]

Вроде бы всё правильно. Можно делать проверку по событию формы OnCloseQuery и оформить Save как функцию: если вернула True - закрыть форму, если False - в обработчике OnCloseQuery установить CanClose := False.

[Костян Пират]

при изменении в мемо спрашивает, но вне зависимости от того какую кнопку жмёшь, окно просто закрывается, почему-то savedialog не появляется...

[Jeni]

Проблема в MessageDlg, наверное неправильное значение проверяется. Я этой функцией не пользуюсь, так что точно сказать не могу. Можно заменить на аналогичный кусок, это сработает.

rez:=Application.MessageBox('Текст решения не был сохранён.' + #13#10 +
       'Хотите сохранить его перед выходом?', 'Сохранение', MB_OKCANCEL);
if rez=IDOK then Save;

[spamer]

//Кнопка на сохранение
procedure TForm1.SaveClick(Sender: TObject);
begin
With SaveDialog1 do
  if Execute then
    begin
      Memo1.Lines.SaveToFile(SaveDialog1.FileName);
      Caption:=ExtractFileName(SaveDialog1.FileName);
    end;
Memo1.Modified:=false;
end;

//На закрытие формы
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Memo1.Modified=true then
  begin
    if MessageDlg('Текстовый файл был изменен. Сохранить изменения?',mtInformation,[mbYes, mbNo],0)=mrYes then
      Save.Click;
  end;
end;

[Костян Пират]

спасибо всем за участие, особенно mihali4 за внимательность! тайное становится явным