Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Динамическое создание TImage 
:(
    Опции темы
Dr.No_xXx
  Дата 16.10.2005, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
Как создать большое кол-во компонентов ТImage динамически,т.е из программы?
smile
PM MAIL   Вверх
Pakshin A. S.
Дата 16.10.2005, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Код

uses ExtCtrls;

<...>

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 MImage: TImage;
begin
 for i:=0 to 100 do
  begin
   MImage:=TImage.Create(Form1);
   MImage.Parent:=Form1;
   MImage.Left:=i;
   MImage.Top:=i;
   MImage.Name:='Image' + IntToStr(i+1);
  end;
end;

Это имелось ввиду?
PM   Вверх
devmstr
Дата 16.10.2005, 15:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Developer
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 28.4.2004
Где: Ukraine

Репутация: 2
Всего: 11
Только не забудь их потом удалить!!!



--------------------
Think different ©Steve Jobs 
user posted image
PM MAIL WWW   Вверх
Dr.No_xXx
Дата 16.10.2005, 17:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
Не совсем.Мне надо чтобы создавалось несколько Timage.
PM MAIL   Вверх
Pakshin A. S.
Дата 16.10.2005, 18:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Цитата(Dr @ 16.10.2005, 18:45)
Не совсем.Мне надо чтобы создавалось несколько Timage.

Попытаюсь самостоятельно расшифровать фразу: создать два компонента типа TImage... Верно? Тогде мой код чем не подходит? только поменять пределы для счтчика в цикле... Если не верно понял, то разъясни.. .smile
PM   Вверх
Dr.No_xXx
Дата 16.10.2005, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
Разобрался.Спасибо smile
PM MAIL   Вверх
Pakshin A. S.
Дата 16.10.2005, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Цитата(Dr @ 16.10.2005, 19:21)
Разобрался.Спасибо

Код в студию... smile smile smile
PM   Вверх
Dr.No_xXx
Дата 16.10.2005, 21:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
lonely delphist
Твой код не пашет.Теперь надо еще и картинки туда загрузить. smile
PM MAIL   Вверх
Pakshin A. S.
Дата 16.10.2005, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
А вот это ты зря! smile

Я тестю 99%: выложенных на форум кодов, включая этот... ВСЕ РАБОТАЕТ! smile
PM   Вверх
Dr.No_xXx
Дата 16.10.2005, 21:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
Лично у меня код не зароботал.Ошибка в
Код

MImage: TImage;

Возможно она тока у меня.
PM MAIL   Вверх
FRAGNATIC
Дата 16.10.2005, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
Добавь
Код

uses
   ExtCtrls;


Это сообщение отредактировал(а) Girder - 17.10.2005, 00:55
PM MAIL   Вверх
Dr.No_xXx
Дата 16.10.2005, 23:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
Точно.Забыл.Спасибо.А как вставить изображение то?
PM MAIL   Вверх
FRAGNATIC
Дата 16.10.2005, 23:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
на скока помню у Timage есть метод LoadFromFile и LoadFromStream )
Добавлено @ 23:47
не немного ошибся
но вообщем так
Image1.Picture.LoadFromFile();
Image1.Picture.Bitmap.LoadFromFile();
Image1.Picture.Metafile.LoadFromFile();
Image1.Picture.Icon.LoadFromFile();
и так далее )
Добавлено @ 23:48
или простым присвоением =)
Добавлено @ 23:49
Image1.Picture.Icon:=ico; где ico Ticon =)
PM MAIL   Вверх
Dr.No_xXx
Дата 17.10.2005, 06:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
Разобрался,спасибо.Тока вот надо не
Код

Image1

а
Код

MImage

а то ошибку выдаст.
PM MAIL   Вверх
FRAGNATIC
Дата 17.10.2005, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
Dr.No_xXx
у тя выдаст у меня нет)
как объявишь её так и будет у тебя :
MImage: TImage;\
а можещь хоть :
MyBestImage: TImage;
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0530 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.