Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Как определить содана ли форма 


besen-ok   (2002-04-17 12:00) [0]

В потоке идет обработка, которая должна менять кое что во внешнем виде формы (если та создана) ... как мне проверить .... создана ли форма .... т.е. Вызывался ли
Form2 := TForm2.Create.... ???



Starkom   (2002-04-17 12:05) [1]

по идее, если не было TForm2.Create, то Form2=nil.
if assigned(Form2) then ...
хотя может я чего-то не понял



Andrey007   (2002-04-17 13:06) [2]

Ну да, переменную типа TForm нужно сравнивать с nil.
if Form1<>nil then // форма создана
begin
...
end
else // ещё не создана или уже обнулена
begin
...
end



Anatoly Podgoretsky   (2002-04-17 13:34) [3]

Screen.FormCount и Screen.Forms[I]
Это все действительно существующие формы, без всяких подозрительныйх манипуляций с Form2



kull   (2002-04-17 16:09) [4]


> без всяких подозрительныйх манипуляций с Form2

C form2 ничего подозрительного.
Подозрительней бегать по обезличенному массиву. И зачем бегать если есть готовая переменная.



Anatoly Podgoretsky   (2002-04-17 16:21) [5]

Например недействительное значение переменной, да и сама переменная как правило не нужна.



Nicolas_   (2002-04-17 17:04) [6]

Например у меня (Form1 <> nil) = TRUE, если форма еще не создавалась. И также Assined(Form1). А как у вас?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.017 c
3-94313           AlanB                 2002-04-09 11:24  2002.04.29  
Не работает программа под WinXP


3-94320           Юляша                 2002-04-07 13:21  2002.04.29  
Secondary index


1-94355           besen-ok              2002-04-17 11:44  2002.04.29  
Как пробежаться по всем елементам на форме


1-94438           Rooman                2002-04-14 09:15  2002.04.29  
А законна ли экспертиза системного блока вообще?


3-94255           Octav                 2002-04-05 19:12  2002.04.29  
Pack gdb