[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.]

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

[nixon232]

Сообщение от dr. F.I.N.

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

В том то и дело, что не воспроизводится в другом проекте. все равно кидаю проект. скелет передан точно. возможно из-за дублей имен юнита, не знаю.
Запускать проект групп.

[dr. F.I.N.]

Если не воспроизводится ошибка в тестовом проекте, то зачем тогда выкладывать его? А вообще, зачем Вам создавать/уничтожать в "другом" месте модальную форму? Может сделать как-нибудь так:

Код:

procedure SomeButtonClick(Sender: TObject);
begin
  with TMyModalForm.Create do
  try
    if ShowModal = mrYes then
    begin
      // do something
    end;
  finally
    Free;  
  end;
end;

[nixon232]

Сообщение от dr. F.I.N.

Если не воспроизводится ошибка в тестовом проекте, то зачем тогда выкладывать его?

Наверное, незачем, но время на его создание не вернуть.

Сообщение от dr. F.I.N.

А вообще, зачем Вам создавать/уничтожать в "другом" месте модальную форму?

я там храню параметры и обращаюсь к ним из главной формы типо:

Код:

SomeObj.str:=SomeFRM.SomeEdit.text

в таком случае, пожалуй, что целесообразнее подгружать из ini по надобности?, чем хранить в форме?

[dr. F.I.N.]

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

в таком случае, пожалуй, что целесообразнее подгружать из ini по надобности?, чем хранить в форме?

Так может тогда эти переменные объявить в глобальном var модуля модальной формы и тогда код будет примерно таким:

Код:

unit uMyModalForm;
..
type 
  TMyModalForm = class(TForm)
  ...
  end;

var
  modalform_value_int: Integer;
  modalfoem_value_str: string;
  ...
implementation

procedure TMyModalForm.ButtonYesClick(Sender: TObject);
begin
  modalform_value_int := ....// например ComboboxN.ItemIndex;
  modalform_value_str := ...// например EditM.Text;
  ...
end;

end;

А в другом модуле просто обращаетесь к переменным:

Код:

unit uMain;
...
procedure TFormMain.SomeButtonClick(Sender: TObject);
begin
  with TMyModalForm.Create do
  try
    if ShowModal = mrYes then
    begin
      ....
      ShowMessage(uMyModalForm.modalform_value_str);
      ....
    end;
  finally
    Free;  
  end;
end;