Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.08;
Скачать: CL | DM;

Вниз

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

 
zero   (2007-05-04 14:46) [0]

В програме форма создаёться динамичеки. Как узнать создана-ли форма ?


 
Reindeer Moss Eater ©   (2007-05-04 14:53) [1]

Если конструктор не обломался, значит создана.


 
Reindeer Moss Eater ©   (2007-05-04 14:53) [2]

Если вызов конструктора не обломался, значит создана


 
DimaBr ©   (2007-05-04 14:54) [3]

if Assigned(переменная формы) then


 
Reindeer Moss Eater ©   (2007-05-04 14:55) [4]

if Assigned(переменная формы) then

Ага. Щаз.


 
DimaBr ©   (2007-05-04 15:07) [5]


> Ага. Щаз.

А что не устраивает ?


 
Плохиш ©   (2007-05-04 15:17) [6]


> DimaBr ©   (04.05.07 15:07) [5]

Form1.Free;
и проверь теперь своим способом её существование.


 
DimaBr ©   (2007-05-04 15:20) [7]

FreeAndNil(Form1);


 
Плохиш ©   (2007-05-04 15:33) [8]


> DimaBr ©   (04.05.07 15:20) [7]

Ok,

myForm := Form1;
FreeAndNil(myForm);

продолжай...


 
DimaBr ©   (2007-05-04 15:46) [9]

FreeAndNil(myForm); - это полный изврат.
В таком случае  Form1 - битый указатель и обрашение к нему - сто пудовое AV


 
Leonid Troyanovsky ©   (2007-05-05 09:57) [10]


> DimaBr ©   (04.05.07 15:46) [9]

> FreeAndNil(myForm); - это полный изврат.

Это точно. И Form1 тоже изврат.

> zero   (04.05.07 14:46)  

> В програме форма создаёться динамичеки. Как узнать создана-
> ли форма ?

Ищи ее в Screen.Forms.

--
Regards, LVT.



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

Текущий архив: 2007.07.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.023 c
2-1181200742
delphino
2007-06-07 11:19
2007.07.08
Как работать с полем Date?


15-1180948784
StriderMan
2007-06-04 13:19
2007.07.08
OPOS


2-1181824457
XTD
2007-06-14 16:34
2007.07.08
Хочу проиграть трек с помощью MMAudioPlayer1 в новом потоке (TTh)


2-1181992506
Delon
2007-06-16 15:15
2007.07.08
Как разобрать файл (txt), выделив информацию


1-1178460987
sinus
2007-05-06 18:16
2007.07.08
ANSII ( кодировка ДОС ) в ANSI ( кодировка Win )