Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];

Вниз

Как динамически создавать TImage в определенном месте на форме   Найти похожие ветки 

 
jdskdhjkhfsfd   (2005-05-17 11:53) [0]

с загруженной в него картинкой. Подскажите, пожалуйста.


 
Ega23 ©   (2005-05-17 12:00) [1]

With TImage.Create(Form1) do
begin
 Top:=100;
 Left:=200;
 Width:=200;
 Height:=300;
 Stretch:=True;
 Picture.LoadFromFile(...) ;
end;


 
Ega23 ©   (2005-05-17 12:01) [2]

With TImage.Create(Form1) do
begin
 Top:=100;
 Left:=200;
 Width:=200;
 Height:=300;
 Stretch:=True;
 Picture.LoadFromFile(...) ;
end;


 
begin...end ©   (2005-05-17 12:04) [3]

> Ega23 ©   (17.05.05 12:00) [1]

> Top:=100;
> Left:=200;
> Width:=200;
> Height:=300;

SetBounds() :-)

И Parent"а забыл.


 
Ega23 ©   (2005-05-17 12:10) [4]

И Parent"а забыл.

Точно. Вот это гораздо существеннее.


 
jdskdhjkhfsfd   (2005-05-19 13:47) [5]

Спасибо, еще вопрос.
Вот создал я, к примеру, 10 штук таких imageй, как теперь обработать клик по одному из них, получить какой либо параметр или удалить определенный image?


 
Eraser ©   (2005-05-19 13:51) [6]

jdskdhjkhfsfd   (19.05.05 13:47) [5]

как теперь обработать клик по одному из них


Через обработчик OnClick нжного Image"a.

получить какой либо параметр или удалить определенный image?

Храни указатели на созданные имэджи, например в TStringList.


 
Юрий Зотов ©   (2005-05-19 13:55) [7]

> jdskdhjkhfsfd

Вот здесь
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342
ответы на все Ваши вопросы, включая и еще не заданные.


 
Ega23 ©   (2005-05-19 13:58) [8]

получить какой либо параметр или удалить

Вариантов много. Тебе нужно как-то его идентифицировать, отличить от остальных Image. Для этого при создании можешь использовать свойство Name и писать туда уникальное имя, либо свойство Tag - уникальное число.
Потом проходишь по циклу:

for i:=0 to Form1.ComponentCount-1 do
begin
 if not (Components[i] is TImage) then Continue;
 if not TImage(Components[i]).Name="MYIMAGE" then Continue;
 TImage(Components[i]).Picture:=nil; // как пример
end;

как теперь обработать клик по одному из них

Нужно завести общий метод и каждому для созданных Imageй этот метод прописать.
Пример:


 TForm1 = class(TForm)

   procedure ImageOnClick(Sender: TObject);

  .....

procedure TForm1.ImageOnClick(Sender: TObject);
begin
if not (Sender is TImage) then Exit;
With TImage(Sender) do
 begin
  Picture:=nil; // как пример
 end;
end;



Теперь, при создании Image надо добавить:


With TImage.Create(Form1) do
begin
Top:=100;
Left:=200;
Width:=200;
Height:=300;
Stretch:=True;
Name:="IMAGE_N"; // или Tag:=N;
OnClick:=ImageOnClick;
Picture.LoadFromFile(...) ;
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.013 c
14-1116594156
syte_ser78
2005-05-20 17:02
2005.06.06
Небольшая задачка


3-1114773445
Шурик
2005-04-29 15:17
2005.06.06
Сервисные функции с БД


14-1116490509
*Pavel
2005-05-19 12:15
2005.06.06
Все пионеры поздравляются


3-1114701922
Alex77777
2005-04-28 19:25
2005.06.06
Как организовать загрузку в Stringgrid из текстового файла


14-1116297444
Defunct
2005-05-17 06:37
2005.06.06
Алгоритм целочисленного деления или хотя бы деления на 10





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский