Создание картинок

← →
Alex_rar (2004-02-18 14:09) [0]

I need help!
Подскажите как вывести одну картинку (Image1)одновременно в нескольких местах на форме, чтобы каждый раз не создавать этот объект.
Я делаю следующее, но Image2 не выводиться.

procedure TForm1.Button1Click(Sender: TObject);
begin

Image2:=TImage.Create(Image1);
Image2.Left:=80;
Image2.Visible:= True;

end;

← →
Reindeer Moss Eater (2004-02-18 14:10) [1]

Parent

← →
KSergey (2004-02-18 14:55) [2]

> Alex_rar © (18.02.04 14:09

Кроме того, что сказал [1] Reindeer Moss Eater
Вы думаете, что при таком вот создании в Image2 (к стати, что за переменная и где объявлена) появится картинка из Image1? Нет, вы заблуждаетесь.

← →
Alex_rar (2004-02-18 15:02) [3]

Image2 : TImage; объявлена в public
Если все знаете подскажите как можно организовать по-другому.

← →
TUser (2004-02-18 15:07) [4]

Можно поместить Image1 на фрейм и его уже помещать на форму. Но объект новый создавать придется.

← →
Alex_rar (2004-02-18 15:13) [5]

Мне потом нужен будет цикл, т.к. количество картинок определится при работе програмы, а при написании мне неизвестно сколько объектов создавать.

← →
Алхимик (2004-02-18 15:13) [6]

F1 Canvas.Draw

← →
KSergey (2004-02-18 15:27) [7]

Циклы тоже вам написать? ;)

Что-то вроде того (точно не проверял, лень)

Image2.Picture.Assign(Image1.Picture) - это после создания Image2, разумеется

А еще обязательно сходить сюда:

http://www.delphikingdom.com/helloworld/runtime_comp.htm

А кроме того, все статьи из

http://www.delphikingdom.com/asp/section.asp?ID=16

к обязательному прочтению!!!!

← →
Alex_rar (2004-02-18 15:27) [8]

Подсказали на другом форуме.

Image2:=TImage.Create(Form1);
Image2.Parent:=Self;
Image2.Picture.Assign(Image1.Picture);

← →
Алхимик (2004-02-18 15:34) [9]

...чтобы каждый раз не создавать этот объект
и
Image2:=TImage.Create(Form1);

Как согласуется?

← →
KSergey (2004-02-18 15:35) [10]

Это конференция отличается тем, что здесь не дают готовых ответов, пригодных лишь в частном случае; однако дают направление поиска, позволяющее не потеряться в других подобных ситуациях ;)

← →
KSergey (2004-02-18 15:36) [11]

Эт а конференция отличается тем, что здесь не дают готовых ответов, пригодных лишь в частном случае; однако дают направление поиска, позволяющее не потеряться в других подобных ситуациях ;)

← →
nexxiss (2004-02-18 16:16) [12]

BITBLT(.....);

Создание картинок Найти похожие ветки