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

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

← →
kirilllius   (2004-11-01 13:28) [0]

Мастера, подскажите ответ на вот какой вопрос.

У меня на форме лежат 10 объектов Image. Возможно ли создать массив из 10 элементов типа TImage и запихать в него эти 10 объектов Image? А затем  обращаться к ним по номеру элемента массива. Если можно на примере.

Заранее благодарю.

У меня есть вот такой код

procedure TfrmThumbNail.FailLoad;

procedure LoadFail(Image:TImage);
begin
 Image.Picture.LoadFromFile(…);
 TJPEGImage(Image.Picture.Graphic).Scale:=jsEighth;
end;

begin
.
.
.
LoadFail(Image1);
.
.
.
LoadFail(Image2);
.
.
.
LoadFail(Image3);
.
.
.
LoadFail(Image4);
end;

А я хочу сделать так

procedure TfrmThumbNail.FailLoad;

procedure LoadFail(Image:TImage);
begin
 Image.Picture.LoadFromFile(…);
 TJPEGImage(Image.Picture.Graphic).Scale:=jsEighth;
end;

var i:Word;
begin
i:=0;
while i<10 do begin
 .
 .
 .
 LoadFail(Image[i]); //где Image массив изображений
 Inc(i);
 end;
end;

---

← →
clickmaker ©   (2004-11-01 13:31) [1]

> Возможно ли создать массив из 10 элементов типа TImage

Возможно.
Но можно еще и так
for i := 0 to ControlCount-1 do begin
 if (Controls[i]) is TImage) then TImage(Controls[i]).LoadFromFile
end;

или заведи св-во на форме
property Images[Index: integer]: TImage read GetImage;

что должно быть в GetImage, думаю, сам догадаешься, исходя из вышенаписанного

---

← →
kirilllius   (2004-11-01 13:47) [2]

>clickmaker
Спасибо, попробую.

---

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

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



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