Как скопировать image?

[blackstersl]

Сново всем привет, у меня вопросик: есть button и image на форме, как сделать так что б при нажатии на button создавался точ такой image?

[uberchel]

НЕ понял!
Ты имеешь ввиду на другом TImage ?

[blackstersl]

нет, например в panel1 есть image, а за panel1 есть button/ При нажатии на button стаёт 2 image ещё раз и 3-ий....Чтоб не копировался превыдущий, а создавался новый.

[Altera]

Сообщение от blackstersl

Сново всем привет, у меня вопросик: есть button и image на форме, как сделать так что б при нажатии на button создавался точ такой image?

т.е. с такой-же картинкой?
Ну, просто создаёшь новую переменную tImage и переносишь в неё все необходимые свойства.

[blackstersl]

нет пустой image.

[DeKot]

procedure TForm1.Button1Click (Sender: TObject);
var x,y: integer;
begin
  Form1.Canvas.CopyRect(bounds(0,0,Image1.Width,Image1.Height),Image1.Canvas,
                                  bounds(x,y,Image1.Width,Image1.Height));
end;

Здесь Image и Button находятся на Form1.При нажатии кнопки появится копия Image на
x и y - координаты места на канве формы, куда копируется картинка.

[blackstersl]

чёт. ошибку выбивает.

[Kotofff]

Если продолжить мысль про канву самой формы то еще так попробуй :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Canvas.CopyRect(Rect(10,10,Image1.Width,Image1.Height), // координаты на форме 10,10
                                         Image1.Picture.Bitmap.Canvas,
                                         Rect(0,0, Image1.Width, Image1.Height));
end;

Правда то же самое только в профиль ...

[DeKot]

ошибку выбивает.

Что пишет в ошибке?
2 Kotofff -

RectName:= bounds(x1,y1,x1+Width,y1+Height);

а конструкция

Rect(0,0, Image1.Width, Image1.Height))

кажется в Дельфи не корректна.

[Kotofff]

Это ведь как вариант ...
Все что я выкладываю - беру либо из своих рабочих проектов или тестирую у себя ...