Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Прога делает TImage ,и после этого к ним не обратиться!!!

5.5K
16 октября 2003 года
Bobs
1 / / 16.10.2003
Такая вот проблема:
Я создаю определенное кол-во картинок:
...
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:=' что-то' ,но так как картинки создавались по ходу выполнения программы ,то соответственно компилятор пишет , что такого объекта нет.

Поэтому если кто знает как обратиться к этим имагам плиз хелп.Заранее вечный респект и Бальшое Человеческое спасибо!!!
371
17 октября 2003 года
Non_prog
193 / / 20.03.2000
Цитата:
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:=' что-то' ,но так как картинки создавались по ходу выполнения программы ,то соответственно компилятор пишет , что такого объекта нет.


Например так:
Обьяви массив TImage[100];
затем при создании, создавай
так
PicForShow:=TImage[t].Create(Self);
или так
PicForShow:=TImage[1].Create(Self);
и обращайся к ним по индексу
:)

4.8K
29 октября 2003 года
XenonXX
21 / / 29.10.2003
...............
TImage(FindComponent('Image7')).picture:=
...............
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог