Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.05.18;
Скачать: [xml.tar.bz2];

Вниз

Как узнать что создалась и существует кнопка?   Найти похожие ветки 

 
kuzulis ©   (2008-04-23 10:22) [0]

Доброго времени суток!!!

Мне нужно как то перед динамическим созданием кнопки узнать.. существует ли она до этого..
т.е у меня в цикле проверяется некое условие.. и если оно труе - то создается кнопка...  И поэтому нада проверить - была ли она уже создана на предыдущем шаге..

Подскажите как это сделать??


 
ANB   (2008-04-23 10:27) [1]

Самый тупой способ - завести переменную и при создании кнопки изменять ее значение. Потом его проверять.


 
Anatoly Podgoretsky ©   (2008-04-23 10:29) [2]

> ANB  (23.04.2008 10:27:01)  [1]

Зачем, кнопка сама в состоянии себя идентифицировать, просто множество вариантов.


 
Ega23 ©   (2008-04-23 10:32) [3]

1. Изначально - объявить как nil.
2. Потом проверять, равно nil или нет. Если равно - не создана. Если не равно - создана.
3. Не забыть после "убийства" приравнять к nil.


 
Рамиль ©   (2008-04-23 10:34) [4]

var
 Button: TButton

if not Assigned(Button) then
begin
 Button := TButton.Create(Self);
 ...
end

Только при уничтожении присваивай Button = nil и для проверки пользуйся этой и только этой переменной.


 
Ega23 ©   (2008-04-23 10:37) [5]


> Рамиль ©   (23.04.08 10:34) [4]


var
Button: TButton;
begin
 Button := nil;  // !!!!!!

 .....
end;


 
Рамиль ©   (2008-04-23 10:39) [6]


> Ega23 ©   (23.04.08 10:37) [5]

Это смотря где var стоит :-)


 
Рамиль ©   (2008-04-23 10:40) [7]

Не, ну должен же автор знать, где надо инициализировать переменные, а где можно и так.


 
Anatoly Podgoretsky ©   (2008-04-23 11:21) [8]

> Рамиль  (23.04.2008 10:34:04)  [4]

Замучается ошибки отлаживать, что угодно, но только не переменную.


 
Leonid Troyanovsky ©   (2008-04-23 12:44) [9]


> kuzulis ©   (23.04.08 10:22)  

> Мне нужно как то перед динамическим созданием кнопки узнать.
> . существует ли она до этого..

Перебираем ее Parent.Controls.

--
Regards, LVT.



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

Форум: "Начинающим";
Текущий архив: 2008.05.18;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.069 c
2-1208437042
Семен Кевларвестов
2008-04-17 16:57
2008.05.18
Как определить было TPopupMenu меню вызвано ShortCut или открыто.


2-1208782867
Fr1K
2008-04-21 17:01
2008.05.18
Проблема с проверкой даты


15-1207574311
Дмитрий С
2008-04-07 17:18
2008.05.18
Свой протокол для IE


2-1208620176
MSD
2008-04-19 19:49
2008.05.18
FTP


3-1197527318
abhtr
2007-12-13 09:28
2008.05.18
Как восстановить удаленные записи в таблице Firebird





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский