Прога делает TImage ,и после этого к ним не обратиться!!!
Я создаю определенное кол-во картинок:
...
PicForShow:TImage;
...
for t:=1 to TotalPicFiles do
begin
...
PicForShow:=TImage.Create(Self);
PicForShow.Parent:=Self;
PicForShow.Name:='Image'+IntToStr(counter);
if i1=6 then
begin
i2:=i2+1;
i1:=0;
end;
PicForShow.Top:=20+i2*95;
PicForShow.Left:=200+i1*75;
PicForShow.Picture.LoadFromFile(PChar(smPicFileName));
i1:=i1+1;
counter:=counter+1;
end;
...
Но теперь мне необходимо обратиться к одной из картинок,т.е ,к примеру, Image7(или 3,или 25).Picture:=' что-то' ,но так как картинки создавались по ходу выполнения программы ,то соответственно компилятор пишет , что такого объекта нет.
Поэтому если кто знает как обратиться к этим имагам плиз хелп.Заранее вечный респект и Бальшое Человеческое спасибо!!!
Цитата:
Originally posted by Bobs
Такая вот проблема:
Я создаю определенное кол-во картинок:
...
PicForShow:TImage;
...
for t:=1 to TotalPicFiles do
begin
...
PicForShow:=TImage.Create(Self);
PicForShow.Parent:=Self;
PicForShow.Name:='Image'+IntToStr(counter);
if i1=6 then
begin
i2:=i2+1;
i1:=0;
end;
PicForShow.Top:=20+i2*95;
PicForShow.Left:=200+i1*75;
PicForShow.Picture.LoadFromFile(PChar(smPicFileName));
i1:=i1+1;
counter:=counter+1;
end;
...
Но теперь мне необходимо обратиться к одной из картинок,т.е ,к примеру, Image7(или 3,или 25).Picture:=' что-то' ,но так как картинки создавались по ходу выполнения программы ,то соответственно компилятор пишет , что такого объекта нет.
Такая вот проблема:
Я создаю определенное кол-во картинок:
...
PicForShow:TImage;
...
for t:=1 to TotalPicFiles do
begin
...
PicForShow:=TImage.Create(Self);
PicForShow.Parent:=Self;
PicForShow.Name:='Image'+IntToStr(counter);
if i1=6 then
begin
i2:=i2+1;
i1:=0;
end;
PicForShow.Top:=20+i2*95;
PicForShow.Left:=200+i1*75;
PicForShow.Picture.LoadFromFile(PChar(smPicFileName));
i1:=i1+1;
counter:=counter+1;
end;
...
Но теперь мне необходимо обратиться к одной из картинок,т.е ,к примеру, Image7(или 3,или 25).Picture:=' что-то' ,но так как картинки создавались по ходу выполнения программы ,то соответственно компилятор пишет , что такого объекта нет.
Например так:
Обьяви массив TImage[100];
затем при создании, создавай
так
PicForShow:=TImage[t].Create(Self);
или так
PicForShow:=TImage[1].Create(Self);
и обращайся к ним по индексу
:)
TImage(FindComponent('Image7')).picture:=
...............