Как определить существует ли форма ?

← →
Dream (2003-10-14 10:40) [0]

Form 2 переождически создайться , и удаляеться методом free во избежании ошибок хочу чтобы программа определяла есть ли форма или нет.

← →
Anatoly Podgoretsky © (2003-10-14 10:41) [1]

Screen.Forms

← →
Dream (2003-10-14 10:47) [2]

> Anatoly Podgoretsky

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

← →
jack128 © (2003-10-14 10:48) [3]

если успользуешь глобальную переменную (var Form2 : Tform2) то в OnDestroy формы обНИЛивай эту переменную...

← →
Плохиш_ (2003-10-14 10:48) [4]

>Dream (14.10.03 10:47) [2]

Что и F1 не помогает?

← →
Dream (2003-10-14 10:55) [5]

> jack128

Проблема в том что я могу создать несколько форм и когда закроетьмся одна и обнулит информацию в переменной прога подумает что больше форм нет а они будут весеть мертвым грузом :(

> Плохиш_

F1 у меня сломана !!! Лично для тебя : есть такая кнопочка не браузере в правом верхнем углу ! Написано Х ! Нажми её !

← →
Плохиш_ (2003-10-14 11:00) [6]

>Dream (14.10.03 10:55) [5]

> F1 у меня сломана !!!

Недалеко от X в делфи есть меню-пункт "Help"

← →
Романов Р.В. © (2003-10-14 11:03) [7]

Заноси ссылки на формы в динамический массив или TObjectList. При удалении формы удаляй ссылку

← →
Anatoly Podgoretsky © (2003-10-14 11:07) [8]

Придется тебе покупать новую клавиатуру, поскольку кроме Ф1 у тебя сломаные еще и Alt, F10, стрелки и Enter.

← →
Anatoly Podgoretsky © (2003-10-14 11:08) [9]

Романов Р.В. © (14.10.03 11:03) [7]
Зачем плодить сущности, Screen.Forms и есть этот самый динамический массив и в отличии от самопального всегда актуальный.

← →
dream (2003-10-14 11:27) [10]

Сделал так

if screen.Forms[1].Visible = true then

Вроде работает ! Всем спасибо

> if screen.Forms[ 1].Visible = true then

Ну-ну...

← →
Плохиш_ (2003-10-14 11:38) [12]

>jack128 © (14.10.03 11:32) [11]

Что Ну-ну... радоваться надо человек на шаг продвинулся :-)

Сделает 2ю форму будет думать дальше.

dream (14.10.03 11:27) [10]
Очень смешно, но хотя кто тебя знает. Но идешь в правильном направлении. Дополнительная подсказка .Name = "..."

if Assigned(Form2) then ...

Ну и соответственно удалять через Release и Form2 := nil;

Желаю успехов

Как определить существует ли форма ? Найти похожие ветки