[nixon232]

Есть формы, на каждой кнопка со св-ом ModalResult= mrYes
Образовалась странная, наверняка детская, проблема при вызове одной из форм.

Код:

begin
  if SomeFRM.ShowModal = mrYes then
  begin
    .....
  end;
end;

Если поставить брейк на if SomeFRM.ShowModal = mrYes then, то в одном случае, он срабатывает (как и задумано) после клика по кнопке и попадает в блок с условием, а в ином случае сразу при вызове формы, и, соответственно, результат не ждет. Где что забыл? OnClose etc ни где не обрабатывается.

[Kailon]

По идее Вы не должны получить ModalResult, так как форма показанная с помощью ShowModal будет ждать своего закрытия и соответственно дальнейший код вызвавшей ее процедуры продолжен не будет. Где-то, что-то, вероятнее всего, у Вас не так написано.

[nixon232]

В том, то и вопрос, что не так. Такое ощущение, что форма создается повторно, хотя ранее создана уже

Код:

SomeFRM := TSomeFRM.Create(self);

Причем, если прописать переменную, то проблема уходит. Но в этом же проекте работает код и без переменной. По этому, хочется понять причину

Код:

var r: TModalResult;
begin
   r:= SomeFRM.ShowModal;
  if r= mrYes then
     begin
      ....
      end;
end;

[dr. F.I.N.]

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

Причем, если прописать переменную, то проблема уходит. Но в этом же проекте работает код и без переменной. По этому, хочется понять причину

Приведите минимальный пример кода воспроизводящий проблему. Ну или если проект не большой (не секретный) и не переполнен нестандартными компонетами, то можете его и выложить.

[nixon232]

Попробую, но что-то мне подсказывает, что в новом проекте будет все хорошо.

[Alegun]

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

...Если поставить брейк на if SomeFRM.ShowModal = mrYes then, то в одном случае, он срабатывает (как и задумано) после клика по кнопке и попадает в блок с условием, а в ином случае сразу при вызове формы, и, соответственно, результат не ждет...

Ну а что, вполне логично - если вылетает из блока следовательно ShowModal отличается от mrYes, тогда можно явно при жиме кнопки результат указывать ModalResult:= mrYes; до обработки и Close

[nixon232]

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

Ну а что, вполне логично - если вылетает из блока следовательно ShowModal отличается от mrYes, тогда можно явно при жиме кнопки результат указывать ModalResult:= mrYes; до обработки и Close

Так то да, вот только в коде нигде не используется close и никак не обрабатываются соответствующие события.
К тому же я писал, что в проблемном случае Бряк срабатывает как бы при открытии модальной формы. То есть мы по сути не ждем модалку как если бы прописали SomeFRM.Show, a не ShowModal. Так что там никакой Close не перекрывается. На форме 2 события и 3 кнопки.
Ничего не обычного OnCreate, Кнопка Save с MrYes, и таким кодом

Код:

var
  ini: tinifile;
begin
  ini := tinifile.Create(ExtractFilePath(Application.ExeName) + 'data.ini');
  try
    ini.WriteInteger();
    ...
  finally
    ini.Free;
  end;

end;

и кнопка Close Без события, но с mrCancel
Вот собственно все, что есть на модальной форме.
В OnCreate Главной формы

Код:

SomeFRM := TSomeFRM.Create(self);
  Application.OnRestore := AppRestore;
  Application.OnMinimize := AppHide;
 ....
  LoadFromINIparam; // Заполняем SomeFRM с того же data.ini
  ...

end;

Само собой, все формы создаются вручную.

[Alegun]

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

...Само собой, все формы создаются вручную.

Вручную модалка вот так создаётся и показывается

Код:

 SomeFRM:= TSomeFRM.Create(Self);
 try
 SomeFRM.ShowModal;
finally 
 SomeFRM.Free;
end;

а если нужна реакция на закрытие, событие OnCloseQuery используется для этого, чтоб спросить пользователя - уверен ли он, возможно остались несохранённые данные

Код:

procedure TSomeFRM.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Закрыть окно, уверены?', 
  mtConfirmation, [mbOk, mbCancel], 0) = mrCancel then
  CanClose:= false;
end;

перевод CanClose в true, продолжит выполнение Close

[nixon232]

Ну я ее (модалку) так и создаю, но по своим причинам не освобождаю. В этом же и вопрос чего в одном куске кода оно работает хорошо, а в другом не ждет модальный ответ

Код:

begin
if SomeFRM.ShowModal = mrYes then
begin
.....
end;
end;

в тоже время если переписать код выше на

Код:

var r: TModalResult;
begin
   r:= SomeFRM.ShowModal;
  if r= mrYes then
     begin
      ....
      end;
end;

Надеюсь, что теперь ясна суть вопроса.

[dr. F.I.N.]

Суть вопроса ясна. Но Вы так и не привели минимальный пример для воспроизведения косяка. Догадки строить - неблагодарное дело. Вам тут (и на любом другом портале) насочинять могут тысячи причин. Упростите и себе и нам процедуру поиска ответа на ваш вопрос - предоставьте код на тесты.