Image

← →
Cref12 (2004-04-21 02:40) [0]

Подскажите пожалуйста как создать массив Timage, каждый элемент которого создается программно и в него загружается картинка? НО ЧТОБЫ КАЖДЫЙ ЭЛЕМЕНТ МАССИВА ОТОБРАЖАЛСЯ НА ФОРМЕ!!!

← →
Алхимик © (2004-04-21 02:55) [1]

Пжалста
var ImgArray: array [0..N] of TImage; ... for i := 0 to N do begin ImgArray[i] := TImage.Create(<владелец>); with TImage(ImgArray[i]) do begin Parent := <имя формы>; Top := <>; Left := <>; // поиграй сам с координатами Picture.LoadFromFile(<имя файла картинки>); end; end;
Желательно после использования освободить массив картинок.

new:=TImage.Create(MainForm);
TImage(New).Name:=New.ClassName + IntToStr(No);
TImage(new).Picture.LoadFromFile("eee.bmp");
TImage(new).Parent:=MainForm;

А массив вот:

for i:=0 to MainForm.ControlCount-1 do begin
if MainForm.Controls[i] is TImage then begin
//Image
end;
end;

Image Найти похожие ветки