| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать индекс у объекта TImage переменной?? [D7, XP]
Raul © (2006-04-01 14:08:00)Привет, проблема у меня вот в чем: есть некая переменная X:integer
а также image1,image2,image3,image4:TImage
Мне нужно, чтобы image1.picture присваивалось значение в зависимости от значения переменной X , то есть если Х=2, то image1.picture:=image2.picture, при Х=3 image1.picture:=image3.picture
И так далее. Пожалуйста, подскажите, как оеализовать!
YurikGL (2006-04-01 16:27:00) [1]
> Вариант 2:
> Использовать ImageList и ImageIndex
Вариант 3
i:=1 ;
with FindComponent('Image'+intToStr(i)) as TImage do
picture:=нужна я картинка для i
Бугага (2006-04-01 14:27:00) [2]Вариант 1:
case X of
1: image1.picture := image1.picture;
2: image1.picture := image2.picture;
3: image1.picture := image3.picture;
end;
Вариант 2:
Использовать ImageList и ImageIndex
Leonid Troyanovsky (2006-04-01 14:12:00) [3]
> Raul © (01.04.06 14:08)
> а также image1,image2,image3,image4:TImage
Images: array [1..4] of TImage?
--
Regards, LVT.
| |
