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

Вниз

Очень интересный вопрос :)   Найти похожие ветки 

 
INTENS   (2002-07-31 19:31) [0]

Как сделать что-то наподобие такого:

If Image1..100.Visible = True Then

Чтобы не писать If (Image1.visible=true) and (Image2.visible=true) and (Image3.visible=true) … then

Вот так вот :)

Заранее благодарен!


 
Skier   (2002-07-31 19:32) [1]

>INTENS
TList ?


 
INTENS   (2002-07-31 19:38) [2]

А че это такое?
Мне бы пример как им пользоваться!
Заранее благодарен!


 
DiamondShark   (2002-07-31 19:41) [3]

Вариант 1.


for i := 0 to ComponentCount do
if Component[i] is TImage
then (Component[i] as TImage).Visible := true;


Вариант 2.


var
Tmp: TComponent;
...
for i := 1 to NNN do
begin
Tmp := FindComponent("Image"+IntToStr(i));
if Tmp is TImage
then (Tmp as TImage).Visible := true;
end;


 
INTENS   (2002-07-31 19:44) [4]

Так мне не надо делать visible := true!!!
Мне надо проверить if visible=true then!!!


 
nick_sniper   (2002-07-31 19:55) [5]

for i := 0 to ComponentCount do
if Component[i] is TImage then
if TImage(Component[i]).Visible then ...


 
nick_sniper   (2002-07-31 19:57) [6]

Извини, правильно будет:

for i := 0 to ComponentCount-1 do
if Component[i] is TImage then
if TImage(Component[i]).Visible then ...




 
INTENS   (2002-07-31 20:28) [7]

Всем большое спасибо!!!


 
INTENS   (2002-07-31 20:40) [8]

Ах да, а можно ли как-то пропустить один Image, т. е. у меня допустим есть 100-тня компонентов Image, и нужно проверить все кроме скажем первых трех!


 
TTCustomDelphiMaster   (2002-07-31 21:12) [9]

INTENS (31.07.02 20:40)
if Component[i].Name = ...
Или измени tag у TImage которые не нужны и включи его в проверку.

PS: А что все 100 TImage создавались в design-time?


 
nick_sniper   (2002-07-31 21:14) [10]

Используй TImage(Component[i]).Name



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

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

Наверх





Память: 0.46 MB
Время: 0.007 c
4-48364
greenrul
2002-05-30 17:15
2002.08.15
Смена раскладки на следующую по счету


1-48031
Вечно молодой
2002-08-03 18:35
2002.08.15
TStringList


1-48197
Alex_31072002
2002-07-31 22:06
2002.08.15
Ресурсы и Runtime packages


14-48262
doroshka
2002-07-17 19:15
2002.08.15
Посоветуйте компонент или как сделать, чтоб в меню прятались...


1-48075
Are you want a tea?
2002-08-04 16:06
2002.08.15
TThread





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский