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

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

← →
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 вся ветка

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



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