Не закрывать форму

[troyan32]

Я сделал показ сообщения при закрытии(onClose). Вопрос: как сказать компилятору, что не надо закрывать приложение?

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

как сказать компилятору, что не надо закрывать приложение?

Телепаты в отпуске. Но я попытаюсь:
Вы хотите сказать "Что при нажатии "Нет" в диалоге" Программа продолжила работать?

[tsar_]

Если я правильно понял- нужно при попытке закрытия проги пользователю предлагается решить окончательно: закрывать прогу или нет.
Если это так, то я бы обрабатывал событие OnCloseQuery (ЗАПРОС на закрытие проги), там есть параметр CanClose.
Если ему присвоить true, то прогу можно закрывать нажатием на крестик, клавишами alt+f4 и др.
Если же его значение false, то закрытие программы этими ("мягкими") методами игнорируется.

[troyan32]

Похоже tsar_ меня понял.
я создал событие OnCloseQuery:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var i:integer;
begin
  i:=Application.MessageBox('Вы точно хотите выйти с рабочим проектом?','Выйти?', MB_YESNO or MB_ICONQUESTION);
   if i=6 then CanClose:=true else CanClose:=false;
  end;

[Lifefine]

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

Похоже tsar_ меня понял.
я создал событие OnCloseQuery:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var i:integer;
begin
  i:=Application.MessageBox('Вы точно хотите выйти с рабочим проектом?','Выйти?', MB_YESNO or MB_ICONQUESTION);
   if i=6 then CanClose:=true else CanClose:=false;
  end;

Интересно, а почему

i=6...

[p51x]

Телепаю: Посмотрел значение константы IDYES... и завел лишнюю переменную, вместо простого сравнения.

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

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

Интересно, а почему

i=6...

потому что константа IDOK = 6...
и даный код можно привести в более простой вариант:

begin
   if Application.MessageBox('Вы точно хотите выйти с рабочим проектом?','Выйти?', MB_YESNO or MB_ICONQUESTION) = IDOK then
     CanClose:=true
      else 
     CanClose:=false;
  end;

[Romantik_FM]

case MessageBox(Handle, 'Вы хотите выйти?' , 'Выход', MB_YESNO + MB_ICONQUESTION)  of
  IDYES:
    begin
     CanClose:=true;
    end;
  IDNO:
    begin
     CanClose:=false;
    end;
end;

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

Разницы никакой. На диалоге всего 2 кнопки и условие if then прекрасно подходит=)
Было бы 3 тогда уместен case of

[hon]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Memo1.Modified then
case Application.MessageBox('Сохранить данные?','Выберите операцию',MB_YESNOCANCEL) of
IDYES : {действия по сохранению данных};
IDNO : Action:=caHide; {отказ от сохранения данных}
IDCANCEL : Action:=caNone; {отмена закрытия формы}
end;
end;

Работает.