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

TImage и массив   Найти похожие ветки 

← →
Prov   (2005-09-09 11:20) [0]

Доброе время суток, господа. Возникла следующая ситуация:
На форме есть 42 компонента TImage. Нужно каждый TImage загнать в массив. имена компонентов: Timage1, TImage2,...,TImageN.
Подскажите, пожалуйста, каким образом я могу присвоить кааждому елементу массива с 42-х елементов один из этим имеджев.
Заранее извиняюсь, может непонятно что изложил. В принципе, суть должна быть понятной.
Заранее очень благодарен за какую либо оказанную помощь.

---

← →
Digitman ©   (2005-09-09 11:44) [1]

var
 ImgArray: array[1..42] of TImage;
 Comp: TComponent;
 s: String;  
..

with MyForm do
for i := 0 to ComponentCount - 1 do
 begin
   Comp := Components[i];
   if Comp is TImage then
     begin
       s := StringReplace(Comp.Name, Comp.ClassName, "", [rkReplaceAll]);
       ImgArray[StrToInt(s)] := TImage(Comp);
     end;

---

← →
Fenik ©   (2005-09-10 18:43) [2]

Одного-то много, а тут 42!!!
Зачем?

---

← →
TStas ©   (2005-09-10 19:07) [3]

>Prov  
Скажите, а картинки все разного размера? Можно же их, если они одного размера, в ImageList загнать. А оттуда через GetBtmap забирать нужный битмап и присваивать картинке. Это и есть общепринятый способ.

---

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

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



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