Привет!
Вот собственно говоря какая штука:
Из одной формы открывается другая модальная и так несколько раз. т.е
Form1
Form2
Form3
Form4

И такой вопрос, как при желании с Form4 закрыть всё это безобразие ? Вариант типа

Код

procedure TForm4.Button1Click(...); begin   Self.Close;   Form3.Close;   Form2.Close;   Form1.Close; end;

не подхотит. т.к. Form4 незачем знать о своём владельце больше, чем то, что он TComponent, и уж тем более им управлять. Он остаётся как бы на крайняк.

Это сообщение отредактировал(а) altarasjuk - 6.9.2003, 20:18

Так сканает(Закроет все кроме главной формы)?

Код

for i:=0 to Screen.FormCount-1 do if Screen.Forms[i]<>Application.MainForm then  Screen.Forms[i].Close;

Это сообщение отредактировал(а) <Spawn> - 6.9.2003, 20:39

А чем не нравится оценка в i-1 форме результата вызова ShowModal(Form_i) и вызов Close?

Цитата

CODE for i:=0 to Screen.FormCount-1 do if Screen.Forms[i]<>Application.MainForm then Screen.Forms[i].Close;

Дык наверное стоит попробовать, но опять же Form4 будет знать о Main form что не есть очень хорошо... Тут бы как-то через Owner, ну типа TForm(Owner).Close; но так нельзя, т.к. после close его надо free. а там метод до конца не отработал и получим Access voilation, не хорошо....
А мысль себя закрывать и бросать Exception по цепочке, и в "владельце" его обрабатывать... (у меня формы открываются статическими методами, и из них буду бросать). Вот что значит щють-щють подумать . Попробую скажу что получилось.

А чем TForm(Owner).Close не нравится? Ставишь в OnClose его для всех этих форм и все(кроме первоначальной, а то он главную форму закроет ). А формы создаешь таким путем:

Код

try Form:=TForm.Create(Self); Form.ShowModal; finally FreeAndNil(Form); end;

И будет тебе счастье

Об этом уже, кажется, говорилось. Разве можно закрывать владельца, если метод ещё не отработал? Или я что-то не понимаю?

Это сообщение отредактировал(а) dm9 - 6.9.2003, 21:23

dm9 Я проверил и все закрылось без каких либо ошибок.

Цитата

Дык наверное стоит попробовать, но опять же Form4 будет знать о Main form что не есть очень хорошо...

Не знаю чем тебе не нравится то, что четвертая форма будет знать о главной, в поток тогда что ли все помести))) :

Код

unit Unit4; interface uses  Classes, Forms; type  TCloseFormsThread = class(TThread)  private  protected    procedure Execute; override;  end; implementation procedure TCloseFormsThread.Execute; var i:integer; begin for i:=0 to Screen.FormCount-1 do if Screen.Forms[i]<>Application.MainForm then  Screen.Forms[i].Close; end; end.

И из нужной формы запусти его :

Код

with TCloseFormsThread.Create(True) do begin  FreeOnTerminate:=True;  Resume; end;

Это сообщение отредактировал(а) <Spawn> - 6.9.2003, 21:40

Цитата

А чем TForm(Owner).Close не нравится? Ставишь в OnClose его для всех этих форм и все(кроме первоначальной, а то он главную форму закроет ). А формы создаешь таким путем: Код try Form:=TForm.Create(Self); Form.ShowModal; finally FreeAndNil(Form); end; И будет тебе счастье

Что-то торможу... у меня так не выходит. Не кинешь исходник, если ещё не удалил? Интересно уже стало

Это сообщение отредактировал(а) dm9 - 6.9.2003, 21:55

<Spawn>б задестрой объект когда метод в нём ещё не отработал, и в этом методе подёргай поля и методы этого объекта:

Код

procedure TForm1.Button1.... var  frm2: TFrom2; begin  frm2:= TFom2.Create(self);  frm2.ShowModal;  self.Caption:= 'Gm.....'; // где - то тут будет ошибка.  self.<Some>  .....  frm2.Free; end;

2. Я решил остановиться на Exception - самый нечерезжопный вариант. И работает

З.Ы. Не все Access voilation отлавливаются траями . Проверено на горьком опыте.

Это сообщение отредактировал(а) altarasjuk - 6.9.2003, 22:05

можно создать какой-нибудь флажок
когда модальной форме стало известно, что нужно закрыться и закрыть предыдущие формы она его установит в true, если нет - false
каждая форма после использования другой модальной формы должна будет проверять этот флажок и закрываться, если он true (ну, может не каждая, главной форме так поступать не стоит)
таким образом вызванная форма ничего не знает о своем владельце, а просто дает ему информацию для размышлений

А флажок этот где будет? Правильно, или в общем доп. модуле, или где? В том самом модуле главной формы, от чего мы и уходили В общем, тут уже пошёл немножко флуд

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