Подтверждения при выходе из программы

[саша40]

-if then else
-Не, нет. Не слышал!

[Stilet]

А может у тебя где-то еще какой нить выход прописан?
Или это не главная форма приложения?

-if then else

А он тут не нужен )
Автор все делает правильно.

[ArhangelDJN]

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

Или это не главная форма приложения?

Первая форма у меня сплеш-скрин сделана. Потом она SplashForm.Free, а Форма 1 создается. И работаю тогда уже из первой формы со всеми остальными.

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

А может у тебя где-то еще какой нить выход прописан?

Присутствует еще :

procedure TForm1.Button7Click(Sender: TObject);
begin
Form1.Close;
Application.Terminate;
end;

Но как я понимаю диалог закрытия "Да" или "Нет" как раз может вполне на это повлиять - если нажму да закроется, а если "нет" - не должно закрываться все же?

Или не так я думаю?

Я правильно сообразил.

Получается если нажать на крестик (закрыть приложение) то код отрабатывает как нужно - выскакивает вопрос "Закрыть программу?", "Да", "Нет". ДА - закрывает, Нет - продолжается работа приложения.
Но если нажать на эту кнопку (Выход), то код отрабатывает не правильно - если нажать на "Нет" заместо продолжения работы приложения оно закрывается так же как и при "Да".

Как сделать что б он и на нажатие кнопки "Выход" нормально реагировал?

[Аватар]

Убери Application.Terminate;

[Алексей_2012]

В событие OnCloseQuery вашей формы:

  if MessageDlg('Вы действительно хотите выйти?', mtInformation, [mbYes, mbNo], 0) = mryes then
 begin
 ...//что-то делаем    
    CanClose := True;
  end
  else
    CanClose := False;

Не?

[Человек_Борща]

Чтобы пропускать выход из ОС, но не закрытие ПО юзером:
Ловим WM_QUERTYENDSESSION сообщение,
Ставим некую глобальную переменную IsOSShuttingDown в True, затем в OnCloseQuerty собитии делаем такую логику:
CanClose:=IsOSShutingDownж

[ArhangelDJN]

Сообщение от Аватар

Убери Application.Terminate;

Спасибо. Немного подумав послушав советы я сообразил.

Нашел решение и переписал несколько процедур. Код привожу ниже.

procedure TForm1.Button7Click(Sender: TObject);
begin
{закрыть приложение}
Form1.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//анимация закрытия окна + закрытие приложения
AnimateWindow(handle, 400, AW_BLEND or AW_HIDE);
Action := caFree;
Application.Terminate;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//подтверждение закрытия.
CanClose:=(MessageDlg ('Подтвердите закрытие программы',mtConfirmation,[mbYes,mbNo],0)=mrYes);
end;

Все начало отрабатывать как нужно.

А как сделать что б писал не "Yes""No" a "Да""Нет"?

[Пепел Феникса]

примените MessageBox.
он зависит от настроек ОС, и на русской ОС выдаст русский текст.

[ArhangelDJN]

Сообщение от Пепел Феникса

примените MessageBox.
он зависит от настроек ОС, и на русской ОС выдаст русский текст.

Ага. Ясненько. Спасибо большое)