Как сделат так, что бы при закрытии проекта появлялось сообщение

[monushka]

Подскажите, как сделать так, что бы при закрытии проекта появлялось сообщение вида: "Вы уверены что хотите выйти? Несохраненные .... и т.п." и варианты "Да", "Нет"...

[KORN]

если ты пишешь на делфе то там есть событие onClose в нем надо написать:

 if messagebox(handle, pchar(тут текст название диалогового окна), pchar(Вы действительно хотите выйти7), MB_ICONQUESTION+MB_YESNO)=ID_NO then
exit;

[Stilet]

Так будет правильней:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if Application.MessageBox('Выходите??','Ну так не толкайтесь',MB_OKCANCEL)=IDOK  then
  Action:=caFree
  else
   Action:=caNone;
end;

[Alex21]

CloseQuery
___________

[KORN]

Сообщение от Stilet

Так будет правильней:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if Application.MessageBox('Выходите??','Ну так не толкайтесь',MB_OKCANCEL)=IDOK  then
  Action:=caFree
  else
   Action:=caNone;
end;

работать не будет... оишбки в синтаксисе...
и вообще зачем писать Action:=caNone; если можно полностью обойтись без этого...

[KORN]

Сообщение от Alex21

CloseQuery
___________

необязательно... я всегда делал через клосе и все ништяк работает

[monushka]

Stilet, спасибо! Все отлично работает! А можно сделать еще так, чтобы можно было при выходе сохранять. Примерно как в Ворде. Сохранить изменения? И варианты: Да, нет, отмена
Еще раз спасибо!

[Stilet]

оишбки в синтаксисе.

Где?

зачем писать Action:=caNone; если можно полностью обойтись без этого

Попробуй...

А можно сделать еще так, чтобы можно было при выходе сохранять

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i:integer;
begin
i:=Application.MessageBox('Выходите??','Ну так не толкайтесь',MB_YESNOCANCEL);
if i=IDYES  then begin
 // Сохраняем
  Action:=caFree;
end;
if i=IDNO  then begin
 // НеСохраняем
  Action:=caFree;
end;
if i=IDCANCEL  then begin
  Action:=caNone;
end;
end;