Форма не закрывается когда из под нее вызывается процедура1

[Maddy]

Если из под формы1 нажатием кнопки пользователь запускает процедуру в которой необходимо закрыть первую форму1 и написанно форма1.закрыть! а она [цензура] не закрывается (может быть потому что из под формы и были запущены процессы... )! соответственно когда должно произойти событие
Форма1.ShowModal; то так как форма1 и так открыта никаких действий не происходит и процесс продолжает дальше идти в ненужном направлении.. как мне это исправить? как обойти эту проблему?

P.S. Текст программы могу выложить. просот он на буке и мне лень это делать сразу... без необходимости

[Stilet]

Что-то я ничего не понял...
Тут точно нужно код смотреть.

[Maddy]

вот код кнопки той формы из под которой запускается процедура electric_calculate

procedure TGridForm.grid1Click(Sender: TObject);  { щелчек по таблице в форме отчета  - ГРИД}
begin
if grid1.cells[2,grid1.row]='' then ButtonDoc.Enabled:=false  
else ButtonDoc.Enabled:=true;
MessageDlgPos(' Вы выбрали сердечник  '+MassivImenTablic[grid1.row-2]+' '+NameArray[grid1.row-2] ,mtInformation ,
  mbOKCancel, 0, 250, 200);
  GridForm.Close;
  GridForm.ButtonExit.Click;
  electric_calculate(grid1.row-2); {Вот та процедура1 Которую вывает пользователь из формы GridForm}
end;

Вот кусок кода процедуры electric_calculate

  If Flag21=false Then Begin Dialog2('   Ошибка 852: Неверно выбранна ширина материала для такой марки стали.Либо база данных не содержит 
информации о заданной  толщине данной марки материала сердечника!!');
   {НАДО вернуться к началу и выбрать другой сердечник так как запас слишком большой  но перед этим надо показать табличку  конкурентных 
серлечников без кнопоки с возможностью выбора другого сердечника.}
   MessageDlgPos(' Попробуйте выбрать другой седечник  '  ,mtInformation ,
   mbOKCancel, 0, 250, 200) ;
   if GridRow.GridForm.Showing=False then
   GridRow.GridForm.ShowModal       
   Else  GridRow.GridForm.Close;{вот если форма была открыта до этого ее надо закрыть 
чтобы опять ее показать пользователю на следующей строке}
   GridRow.GridForm.ShowModal // На этой строке фозникает ошибка о том что нельза сделать  форму видимой
   end;

Появляется сообщение об ощибке вот такое "Cannot make a visible window modal "

Как обойти эту проблему?! ваши предложение спасибо)

[mihali4]

   if GridRow.GridForm.Showing=False then
   GridRow.GridForm.ShowModal       
   Else  GridRow.GridForm.Close;{вот если форма была открыта до этого ее надо закрыть чтобы опять ее показать пользователю на следующей строке}
   //GridRow.GridForm.ShowModal // На этой строке фозникает ошибка о том что нельза сделать  форму видимой

Чтобы вновь показать после закрытия, ее нужно создать.

[Stilet]

ее нужно создать.

А почему? разве Close уничтожает форму?
мне кажется тут проблема в указанной автором строке.
Она не нужна.
Просто написать:

   if GridRow.GridForm.Showing=False then
   GridRow.GridForm.ShowModal       
   Else  GridRow.GridForm.Close;

Зачем после IF еще раз Форму модально открывать?

[Maddy]

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

   if GridRow.GridForm.Showing=False then
   GridRow.GridForm.ShowModal       
   Else  GridRow.GridForm.Close;{вот если форма была открыта до этого ее надо закрыть чтобы опять ее показать пользователю на следующей строке}
   //GridRow.GridForm.ShowModal // На этой строке фозникает ошибка о том что нельза сделать  форму видимой

Чтобы вновь показать после закрытия, ее нужно создать.

Поправил код

   GridRow.GridForm.ShowModal[/COLOR]       
   Else begin
  GridRow.GridForm.Close
  GridRow.GridForm.FormCreate(Sender);
  GridRow.GridForm.ShowModal ;// На этой строке ПО ПРЕЖНЕМУ фозникает ошибка о том что форму нельзя сделать вилимой  
  end;

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

А почему? разве Close уничтожает форму?
мне кажется тут проблема в указанной автором строке.
Она не нужна.
Просто написать:

   if GridRow.GridForm.Showing=False then
   GridRow.GridForm.ShowModal       
   Else  GridRow.GridForm.Close;

Зачем после IF еще раз Форму модально открывать?

Проблема в том что не зависимо от того открыта или нет форма ее нужно Показать пользователю чтобы он смог сделать выбор другого пути развития.
пошагово смотрю на процесс и вижу что процедура не может закрыть форму пока процедура не дойдет до конца.( а до конца то она не дойдет без ошибок!) как мне ее прервать в таком случае?
Как сделать брайк после команды закрыть форму!? { Напишите если не трудно - Breake; или как? лень копаться в справочниках)} тогда будет вообще все в ажуре- форму вообще не надо будет закрывать! она открыта - выбирай другой путь дорогой мой пользователь)

и почему у меня не вставляються картинки?

[mihali4]

Эти неуклюжие строки

   if GridRow.GridForm.Showing=False then
   GridRow.GridForm.ShowModal       
   Else  GridRow.GridForm.Close;{вот если форма была открыта до этого ее надо закрыть чтобы опять ее показать пользователю на следующей строке}
   GridRow.GridForm.ShowModal // На этой строке фозникает ошибка о том что нельза сделать  форму видимой

следует заменить на

GridRow.GridForm:=GridRow.GridForm.Create(Application);
GridRow.GridForm.ShowModal;
GridRow.GridForm.Free;

и не мучиться...

[Maddy]

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

В общем вопрос остаеться открытым, если кому интересно на него ответить, Но мне это уже никакой пользы не принесет.

[mihali4]

чтобы ее создать заново ее надо разрушить, а так как из под этой формы запускаються процедуры

Типичный пример неверного построения программы в целом и распределения процедур по юнитам в частности.

[Maddy]

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

Типичный пример неверного построения программы в целом и распределения процедур по юнитам в частности.

А ты схемку верного набросай) сказать что где-то тут ошибка любой может , а вот верно указать как надо сделать...