Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: 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 вся ветка

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
9-1090017048
Virtual GOD
2004-07-17 02:30
2004.11.14
Вопрос по движку


3-1097914633
arick
2004-10-16 12:17
2004.11.14
Проблема в подключении TSQLConnection (dbExpress)


14-1098872047
ArMellon
2004-10-27 14:14
2004.11.14
Бесплатные коллекции MP3 для скачиванивания


1-1098876461
klerk
2004-10-27 15:27
2004.11.14
Повторное подключение к Excel


4-1097055635
3fc
2004-10-06 13:40
2004.11.14
Вывод текста под углом средствами WinAPI