Зыкрытие всех форм созданных с главной

← →
denis24 (2006-02-28 14:55) [0]

Допустим есть главная форма form1.И есть form2(formstyle=StayonTop).
На галвной форме много экземпляров Timage в коотрых звгружены фото.При двойном клике на любом из Timage выполняется код
form2:=Tform2.Create (self); for i:=0 to form1.ControlCount- 1 do form2.Image1.Picture.Assign((form1.Controls[i] as timage).picture); form2.show;
Соответсвенно каждый раз открывается новыя form2 в которой показывается увеличенное изображение из сфокусированого Timage на form1.
Так их можно понаоткрывать множество.
Вопрос.Как при закрытии form1 закрыть все экземпляры form2 со всеми открытими в них изображениями?

← →
clickmaker © (2006-02-28 15:38) [1]

if (Form.Components[i] is TForm) then

а разве они у тебя сами не закрываются, ведь Tform2.Create (self);, а self - главная форма?

← →
denis24 (2006-02-28 16:01) [2]

по идее да
form1 создается с еще одной формы и показывается модально.
может в этом причина?

← →
clickmaker © (2006-02-28 16:24) [3]

тогда да. Ведь при закрытии модальной, ты ее не убиваешь видимо...
тогда закрывай принудительно
либо
Form1 := TForm1.Create
Form1.ShowModal;
Form1.Free;
заодно экономия памяти

← →
denis24 (2006-02-28 17:14) [4]

В моем случае form1 не могу сделать free.
Закрываю принудительно через componentscount
Спасибо

Зыкрытие всех форм созданных с главной Найти похожие ветки