Здравствуйте.

Столкнулся с проблемой запуска приложения на Windows-7 ... В программе есть две формы. Из первой формы вызывается вторая, при этом первая форма делается hide. Во второй форме по закрытию делался "form.close" или "HALT", который на ХР прекрасно всё закрывал, на Windows 7 в итоге получается "фаталл-еррор", и приложение остаётся висеть в задачах, при этом честно освобождаются все порты и закрываются все потоки. Каждая из форм отдельно друг от друга прекрасно работает и корректно закрывается. Так же прекрасно закрывается первая форма не загрузившая вторую.

Собственно вариант делать hide первой форме мне не нравился, поскольку не вижу смысла работе на заднем фоне формы к которой уже никогда не вернусь. Но попытки закрыть первую форму приводило к полному закрытию всех форм.

Как можно загрузить форму-2, и закрыть форму-1 ?

Язык - Delphi 7

Что-то мне подсказывает, что первая форма - главная.

Тогда сделать вторую форму главной, а перед запуском главной формы уже второй формы грузить первую. Тогда можно спокойно закрывать то окно которое не нужно

Это сообщение отредактировал(а) chip_and_dayl - 4.2.2011, 10:02

Да - главная !


Но мне вторая форма без первой не нужна ! В первой форме выбирается одно из 64 CAN устройств в под сети. Если запустить просто первую форму, то выберется первое из найденных устройств. Для этого и существует первая форма, что бы выбрать нужные конфигурации для второй формы.

Странно, я заметил, что в делфи часто люди выходят из положений выгрузки формы простым hide'ом, который просто не отображает содержимое оной. Этот способ оставляет зарезервированную память, тратит ресурсы процессора, да и вообще не красив. Почему такая сложность передать права главной формы другой форме ?

Единственный выход из положения, который я вижу, это создание третьей формы, которая будет главная, вечная, и которая будет решать какую форму нужно загружать или выгружать ?

Похоже на мастер, почему бы не сделать на одной форме?

При создании (FormCreate) запускается два три потока. И так всё устроено, что форма не должна показаться пользователю до создания этих потоков. Иначе придётся наворачивать код всякими IF'ами, где они совсем не нужны. Допустим у меня есть в форме список устройство в одной из подсетей. Само появление формы гласит о том, что одно из устройств есть в подсети, и мне нужно постоянно его пере-запрашивать. Каждый пере-запрос или конфигурация на той стороне ведётся учётом. Вообщем программа начнёт обрастать лишним кодом лишь от того, что нельзя в нужный момент времени загрузить форму.
Да и не хочется затыкать код "костылями". Если язык программирования позволяет, а я думаю, что он позволяет выгрузить одну форму и загрузить вторую, то грех не научиться это делать.

Ну тогда ты должен понимать, что закрытие (Close) этой формы будет означать завершение работы программы. Тебе именно это надо?

Мне нужно закрытие обеих форм действием к закрытию программы. Или эту же проблему решит вопрос - "как сделать главной другую форму" ?

Ура ... Ура !!! Уря ...

Проблему решил, поковыряв цикл делфи, там всего-то для главной формы созданный поинтер, где лежит адрес главной формы ... В цикле проверяется на nil. Итак делается это так ... Допустим, что Form1 это главная форма, а Form2 должна стать главной в зависимости от результата выполнения в Form1 ...

Код в Form1 пытающийся передать "главность" Form2:

И всё честно ... Вторая форма становится активной, первая честно закрывается освобождая память !!!

Спасибо за помощь, кому приятно, не просто убирать видимость форме а честно её выгружать, - пользуйтесь на здоровье ! Может памяти у меня и гиг, но когда-то и 48к было то же океаном ...

Robus, спасибо, реально классная штука!!! Не зря провисела 2 года)))

V1Ray, я не уверен, что это корректный код. Т.к. Application.MainForm это не указатель, а свойство возвращающее указатель.
Буду рад если кто то объяснит, что там под капотом происходит при таких присваиваниях.

На самом деле - это все лишнее. Надо просто убрать из автосоздания форм - все формы. Тогда вообще не будет главной формы. И в файле проекта, вместо Application.Run запустить свою процедуру или объект (ссылка) управляющие окнами. Ну и там же Application.Title что то присвоить.

superVad,Вот ссылка. Проще уже некуда  
Комментарий STRATEG-а. Там ссылка на толковый пример.

Это сообщение отредактировал(а) V1Ray - 8.6.2013, 23:25

Поддержу superVad, это грязный хак. 
Можно просто сделать форму невидимую, она будет главной для приложения, но видна не будет, а остальные показывай-закрывай уже в любом порядке без проблем. 

Хм. А где в ответах STRATEG-а применялся этот "грязный фак" с подменой значения ссылки Application.MainForm?
Посмотрел несколько примеров STRATEG-а. Везде всё как предложил 


P.S. 
Возможно этот вариант не сочетается с не так давно появившемся (ИМХО в Д2005) свойством TApplication.MainFoirmOnTaskBar

Это сообщение отредактировал(а) northener - 9.6.2013, 01:28

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