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

Как сделать индекс у объекта TImage переменной??   Найти похожие ветки 

← →
Raul ©   (2006-04-01 14:08) [0]

Привет, проблема у меня вот в чем: есть некая переменная X:integer
а также image1,image2,image3,image4:TImage
Мне нужно, чтобы image1.picture присваивалось значение в зависимости от значения переменной X , то есть если Х=2, то image1.picture:=image2.picture, при Х=3 image1.picture:=image3.picture
И так далее. Пожалуйста, подскажите, как оеализовать!

---

← →
Leonid Troyanovsky ©   (2006-04-01 14:12) [1]

> Raul ©   (01.04.06 14:08)  

> а также image1,image2,image3,image4:TImage


Images: array [1..4] of TImage?

--
Regards, LVT.

---

← →
Бугага ©   (2006-04-01 14:27) [2]

Вариант 1:
case X of
1: image1.picture := image1.picture;
2: image1.picture := image2.picture;
3: image1.picture := image3.picture;
end;

Вариант 2:
Использовать ImageList и ImageIndex

---

← →
YurikGL ©   (2006-04-01 16:27) [3]

> Вариант 2:
> Использовать ImageList и ImageIndex

Вариант 3
i:=1 ;
with FindComponent("Image"+intToStr(i)) as TImage do
 picture:=нужна я картинка для i

---

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

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



Память: 0.45 MB
Время: 0.026 c