[VANNIK002]

Задача очень простая. При активизации формы проверяется некое условие. Если оно выполняется, то корректная работа формы невозможна, и её надо закрыть до устпанения причин.
Имеем текст программы

Код:

procedure TF_AddValueParam.FormActivate(Sender: TObject);
begin
  .... 
  ....
  if n =0 then Close;
  ....
  ....
end;

В данном случае, Close работает как Exit.
Наверно все правильно. Только вот мне то что делать?

[Gravitas]

Application.Terminate

[VANNIK002]

Способ кардинальный. Закрывается программа, а не форма.
Дело в том, что вызываю и уничтожаю эту форму так:

Код:

  F_AddValueParam := TF_AddValueParam.Create(Self);
  F_AddValueParam.User := User;
  F_ValueList.Visible := False;
  F_AddValueParam.ShowModal;
  F_AddValueParam.Free;
  F_ValueList.Visible := True;

Мне надо просто выйти из формы. Остальное уже сделано. Может я что-то не понимаю или не то делаю? Подскажите пожалуйста.

[PhoeniX]

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

Close работает как Exit

Всмысле, выход из процедуры? Или как Exit из программы? Во втором случае - у тебя эта форма является главной? Если да, то всё логично. В первом случае - вроде так и должно быть.

[VANNIK002]

Мне надо выйти из формы, а выходит только из процедуры. В любой другой процедуре Close закрывает форму где бы он ни стоял. Exit завершает работу процедуры. В обработчике события OnActivate Close не хочет закрывать форму, просто выходит из процедуры. Форма, из которой надо выйти, создаётся динамически см. #3

[angvelem]

1. Обязательно закрыть, спрятать недостаточно?
2. В каком контексте используется Close? Как привёл в примере, или имеется что то ещё?
3. Зачем вообще активизировать форму? Сделай проверку раньше.

[VANNIK002]

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

1. Обязательно закрыть, спрятать недостаточно?
2. В каком контексте используется Close? Как привёл в примере, или имеется что то ещё?
3. Зачем вообще активизировать форму? Сделай проверку раньше.

1. Спрятал, а дальше что, Вернуться то в вызывающую форому всёравно надо. Мало того, хотелось бы через выход, а не через другое место.
2. В этом Unit два Close. Один почти один в один как в примере. Другой в обработчике события кнопки Выход. К кнопке Выход вопросов нет.
3. Зачем активизировать форму? Я не знаю как работать с не активизированной формой. Сделать проверку раньше конечно можно, но это повлечёт серьёзное усложнение и увеличение кода.

Более - менее "нормальный" выход я нашел. Сделал на форме неактивным всё, кроме кнопки Выход. Работает, но смотреть противно.
Проблема закрыта, вопрос остался. Почему с помощью функции Close не закрывается форма, и не происходит возврат в вызывающую форму. Неужели я первый, кто столкнулся с этой проблемой???

[ART]

Выйти из формы?

Код:

 Form2.close;

Серьёзное усложнение и увеличение кода?

Код:

 ...
 if твоя_переменная = нужному_значению then
  Form2.show;
 ...

[VANNIK002]

Я ЧАЙНИК но прежде, чем беспокоить занятых людей, читаю книги. У меня их много. Ваш вариант в одной из них описан и мной опробован....

Чтобы определить, можно ли работать с этой формой, делается запрос к базе данных. Прежде, чем сделать запрос, надо определиться с параметрами запроса. Если в запросе нет ни одной записи, то тогда не стоит открывать форму.

[angvelem]

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

... Если в запросе нет ни одной записи, то тогда не стоит открывать форму.

Сам себе и ответил на поставленный вопрос.

[VANNIK002]

Конечно, только из под одной кнопки пока открывается одна из трёх форм, в зависимости от положения курсора в наборе данных SQL запрса. Дальше будет больше.

Еще раз.... Как обойти возникшую проблему, я для себя решил. ОСТАЛСЯ ВОПРОС. ПОЧЕМУ НЕ РАБОТАЕТ CLOSE? Вот на какой вопрос я хочу получить ответ.

[angvelem]

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

... ОСТАЛСЯ ВОПРОС. ПОЧЕМУ НЕ РАБОТАЕТ CLOSE? ...

Это уже из области телепатии. Нужно видеть РЕАЛЬНЫЙ проект, чтобы понять ПОЧЕМУ.

[VANNIK002]

Могу сбросить исходники вместе с базой данных любому, кто готов помочь разобраться в причинах такого поведения Close.Только скажите куда.

[PhoeniX]

http://dump.ru/
http://narod.ru/
Продолжать список?

[NumLock]

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

ОСТАЛСЯ ВОПРОС. ПОЧЕМУ НЕ РАБОТАЕТ CLOSE? Вот на какой вопрос я хочу получить ответ.

все очень просто если заглянуть в реализацию Close в модуле Forms:

Код:

procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;

форма вызывается через ShowModal, соотв. будет выполняться красный код. а он только ModalResult присвоит значение mrCancel и все. если дальше покопать модуль Forms, то можно найти:

Код:

function TCustomForm.ShowModal: Integer;
var
  WindowList: Pointer;
  SaveFocusCount: Integer;
  SaveCursor: TCursor;
  SaveCount: Integer;
  ActiveWindow: HWnd;
begin
  CancelDrag;
  ...
    Show;
    try
      SendMessage(Handle, CM_ACTIVATE, 0, 0);
      ModalResult := 0;
      repeat
        Application.HandleMessage;
        if Application.FTerminate then ModalResult := mrCancel else
          if ModalResult <> 0 then CloseModal;
      until ModalResult <> 0;
      Result := ModalResult;
      SendMessage(Handle, CM_DEACTIVATE, 0, 0);
      if GetActiveWindow <> Handle then ActiveWindow := 0;
    finally
      Hide;
    end;

уже чувствуешь?)