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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.12.2007, 19:26   #1
Романнн
Пользователь
 
Регистрация: 04.11.2007
Сообщений: 64
По умолчанию создание элемента

надо по щелчку button1 создать на форме (например)image1...
Романнн вне форума Ответить с цитированием
Старый 13.12.2007, 19:46   #2
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Ты можешь не создавать элемент, а просто сделать его скрытым и при нажатии на кнопку его показать.

Вот пример:
Присваиваеш компоненту Image значение Visible:=False;

Потом при нажатии на кнопку делаеш его видемым.

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Image1.Visible:=True;
End;
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 13.12.2007, 20:24   #3
Романнн
Пользователь
 
Регистрация: 04.11.2007
Сообщений: 64
По умолчанию

нет......про скрытый я знаю......
но количество картинок будет изменятся динамически,соответственно,непракти чно делать 255(на всякий случай) имэдж на форме...
меня интересует именно создание оной...
Романнн вне форума Ответить с цитированием
Старый 13.12.2007, 20:35   #4
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Ну, так в один Image можно загружать разные картинки по нажатию кнопки. Или же нужно все-таки создавать несколько Image-ов в run-time?
_Dmitry вне форума Ответить с цитированием
Старый 13.12.2007, 20:46   #5
Романнн
Пользователь
 
Регистрация: 04.11.2007
Сообщений: 64
По умолчанию

нужно именно несколько имэдж....
объясню для чего: делаю замену панели задач...при открытии нового окна на моей форме появляется его скриншот,кликнув по которому данное окно активируется...при закрытии икна и имэдж с его скриншотом тоже FREE )
Романнн вне форума Ответить с цитированием
Старый 13.12.2007, 21:01   #6
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Код:
uses ..., ExtCtrls;

TForm1 = class(TForm)
...
public
  Images: array[1..40] of TImage; //массив имиджев
end;

//создание первого имиджа
Images[1]:=TImage.Create(self);
Images[1].Left:=50;
Images[1].Top:=50;
Images[1].Width:=100;
Images[1].Height:=100;
Images[1].AutoSize:=true;
Images[1].Picture.LoadFromFile('c:\windows\winnt256.bmp');
Images[1].Parent:=self;
_Dmitry вне форума Ответить с цитированием
Старый 13.12.2007, 21:07   #7
Романнн
Пользователь
 
Регистрация: 04.11.2007
Сообщений: 64
По умолчанию

благодарю) именно то что надо
Романнн вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск элемента ЭД4-0014 Помощь студентам 12 05.06.2008 21:47
Удаление элемента массива chiffa Общие вопросы Delphi 1 03.01.2008 19:24
номер элемента в листбоксе RoadTrain Общие вопросы Delphi 2 20.11.2007 15:54
Вставка элемента в SelectDirectory mrandrey Общие вопросы Delphi 1 31.05.2007 20:25
Передача элемента формы varied Общие вопросы Delphi 10 21.12.2006 23:45