Всем приветки. Внезапно возникла такая трабла: пишется обычный редактор. Вопрос такой - я закрываю форму и мне нужно выводить алерт с запросом на сохранение этого документа. Если юзер жмет в этом окошке кнопочку "Отмена", то эта алерта закрывается и пользователь возвращается обратно в редактор. На что повесить появление алерты? Я пробовал вешать на закрытие формы редактора - при любом раскладе форма редактора закрывается. Пытался повесить на Alt+F4 формы - такая же фигня. Подскажите плз, куда запихать код создания формы алерты.

OnCloseQuery

Код

//Если в документ были внесенны изменения procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var   SaveResp: Integer; begin if not memo1.Modified then Exit;  SaveResp := Application.MessageBox('Сохранить изменения в файле','Мой редактор',  MB_ICONEXCLAMATION + MB_YESNOCANCEL);   case SaveResp of     idYes: mnuSaveAs.Click;     idNo: ;     idCancel: Abort; //Взвратится обратно к редактированию файла   end; end;

Спасибки всем!!!

Alex
Под Kulix такой код не катит по Abort - скрывается форма, и приложение весит в памяти. Что делать?

на OnClose

Код

Action:=caNone; if not memo1.Modified then Exit;      SaveResp := Application.MessageBox('Сохранить изменения в файле','Мой редактор',      MB_ICONEXCLAMATION + MB_YESNOCANCEL);       case SaveResp of         idYes: mnuSaveAs.Click;         idNo: close ;         idCancel: exit; //Взвратится обратно к редактированию файла       end;     end;

Это сообщение отредактировал(а) Girder - 13.9.2005, 11:29

А CanClose зачем нужно? Не проще ли делать CanClose := false вместо Abort или Exit?

Цитата

А CanClose зачем нужно? Не проще ли делать CanClose := false вместо Abort или Exit?

ты читать умеешь у человека аборт не катит)
CanClose := false
лол )
зачем ексит и аборт
на онклоузэ ставишь
Action:=caNone;
и всё!!! дальше чё хош делай ! форма не закроется! пока ты её сам не закроешь )

FRAGNATIC, не понял тебя:

Цитата

зачем ексит и аборт на онклоузэ ставишь

Я предложил на OnCloseQuery ставить CanClose := false вместо Abort или Exit и

Цитата

форма не закроется! пока ты её сам не закроешь

Как и с Action := caNone в OnClose

Vet
и?
а я на онклосэ предложил это делать) один фиг всё ровно и там и там одна строка кода или санклосэ:=false или актион:=caNone ))))

FRAGNATIC, ну да, смысл один и тот же