Действо при закрывании

[Акашаев Нурлан]

Я хочу чтобы при закрывании проги, она мне предлагала сохранить док.(как в блокноте) Как я могу это вызвать? Или придётся самому велосипед заново изобретать?

[Artificial]

В событии OnCloseQuery обрабатывай, если документ не соответствует изначальному его виду, то предложи сохранить..
Нашел код, когда-то делал так, быть может изобретал велосипед, незнаю:
При Открытии/Сохранении файла SaveStatus изменялся..

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (SaveStatus = 2) then begin
MessageShow:='Save file' + FileName + '?';
DlgBtn:=MessageDlg(MessageShow,mtConfirmation, [MbYes,mbNo,mbCancel], 0);
// Checking Pressed Button
if (DlgBtn = mrYes) then Save1Click(Sender);
if (DlgBtn = MrNo) then CanClose:=true
                                           else CanClose:=false;
end;
if (SaveStatus = 3) then begin
MessageShow:='Save file' + FileName + '?';
DlgBtn:=MessageDlg(MessageShow,mtConfirmation, [MbYes,mbNo,mbCancel], 0);
// Checking Pressed Button
if (DlgBtn = mrYes) then SaveAs1Click(Sender);
if (DlgBtn = MrNo) then CanClose:=true
                                           else CanClose:=false;
end;
end;

Вот, полуфабрикат..

[Акашаев Нурлан]

а что значит savestatus?

[Air]

Акашаев Нурлан

var savestatus:integer;

Скажем при старте savestatus=0, а при изменении документа savestatus=3

[Artificial]

Совершенно верно.

[mutabor]

если документ не соответствует изначальному его виду

а обычно делают еще проще, достаточно кликнуть машью или стереть букву а потом ее же вписать обратно, чтобы программа предложила сохранить изменения

[Air]

Ну, у всякого текстового редактора в делфи есть процедура OnChange, что в TMemo, что в TRichEdit. Вот и исходим из этого.

[N!ckeL]

Ну, у всякого текстового редактора в делфи есть процедура OnChange, что в TMemo, что в TRichEdit. Вот и исходим из этого.

Есть свойство Modified, если true то были изменения.

[Air]

Верно, но в OnChange за одно можно обрабатывать "Undo"(отмена изменений)