Скачать: CL | DM;

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

← →
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

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

---

← →
jack128 ©   (2003-10-14 11:32) [11]

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

Ну-ну...

---

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

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

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

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

---

← →
Anatoly Podgoretsky ©   (2003-10-14 11:40) [13]

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

---

← →
Rouse_ ©   (2003-10-14 13:14) [14]

if Assigned(Form2) then ...

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.013 c