Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.05.2014, 02:43   #1
slorgi
 
Регистрация: 26.04.2014
Сообщений: 9
По умолчанию delphi проблема с TImage. Получение имени компонента.

Добрый день, на форме динамически создаются Nштук TImage и TButton
Что нужно: при нажатии на TButton2 открывать *.jpg в TImage2 и т.д.
Как делаю: при создание компоненты получают .tag = порядковому номеру.
При нажатии на уже созданные кнопки по .Tag получаю в string имя необходимого Image, а как подставить имя Image из стринга не понимаю, string.loadfromfile конечно же не работает.
Код:
var
t,n: string;
begin
t:=(FindComponent('image'+ IntToStr((Sender as TButton).Tag)) as Timage).name;
ShowMessage(t);
// в t получили имя нужного image, в нем нужно открыть jpg.
if openDialog1.Execute
  then  begin
  n:=openDialog1.FileName;
  t.Picture.LoadFromFile(n);

  end
  else exit ;
end;

Последний раз редактировалось slorgi; 16.05.2014 в 02:50.
slorgi вне форума Ответить с цитированием
Старый 16.05.2014, 03:16   #2
DpolenST
Форумчанин
 
Регистрация: 28.09.2013
Сообщений: 115
По умолчанию

Код:
t:=(FindComponent('image'+ IntToStr((Sender as TButton).Tag)) as Timage).name;
то есть ты нашел компонент по имени чтобы получить его имя?


а если так
Код:
(FindComponent('image'+ IntToStr((Sender as TButton).Tag)) as Timage).Picture.LoadFromFile(n);
Что бы еще такого сделать, чтобы ничего не делать?

Последний раз редактировалось DpolenST; 16.05.2014 в 03:24.
DpolenST вне форума Ответить с цитированием
Старый 16.05.2014, 03:32   #3
slorgi
 
Регистрация: 26.04.2014
Сообщений: 9
По умолчанию

То, что нужно, спасибо )
slorgi вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Try и TImage [Delphi 7] -Jack- Общие вопросы Delphi 7 01.11.2012 02:11
TImage. Delphi PianeR Помощь студентам 2 02.02.2011 19:59
Динамические компоненты.Бага с созданием Horus92 Общие вопросы Delphi 3 01.06.2010 20:23
Динамические компоненты. Уже не могу.. Ky3Heu, Общие вопросы Delphi 2 15.04.2009 15:05
Динамические компоненты и MouseMove Шульц Общие вопросы Delphi 10 23.01.2009 11:27