[nixon232]

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

Код:

1 2 3 4 5 6

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

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

[Kailon]

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

[nixon232]

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

Код:

1	SomeFRM := TSomeFRM.Create(self);

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

Код:

1 2 3 4 5 6 7 8

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, и таким кодом

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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

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

Код:

1 2 3 4 5 6 7 8

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

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

[Alegun]

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

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

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

Код:

1 2 3 4 5 6

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

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

Код:

1 2 3 4 5 6

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

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

[nixon232]

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

Код:

1 2 3 4 5 6

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

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

Код:

1 2 3 4 5 6 7 8

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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.

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

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

Код:

1	SomeObj.str:=SomeFRM.SomeEdit.text

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

[dr. F.I.N.]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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;

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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;