| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Массив типа TImage [D6, Win2k]
kirilllius © (2004-11-01 13:28:00)Мастера, подскажите ответ на вот какой вопрос.
У меня на форме лежат 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;
kirilllius (2004-11-01 13:47:00) [1]>clickmaker
Спасибо, попробую.
clickmaker (2004-11-01 13:31:00) [2]
> Возможно ли создать массив из 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, думаю, сам догадаешься, исходя из вышенаписанного
| |
