Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TImage и массив [D7, WinXP]

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

TStas (2005-09-10 19:07:00) [1]
>Prov
Скажите, а картинки все разного размера? Можно же их, если они одного размера, в ImageList загнать. А оттуда через GetBtmap забирать нужный битмап и присваивать картинке. Это и есть общепринятый способ.

Fenik (2005-09-10 18:43:00) [2]
Одного-то много, а тут 42!!!
Зачем?

Digitman (2005-09-09 11:44:00) [3]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »