Скачать: CL | DM;

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

← →
ZedeS ©   (2004-09-01 20:59) [0]

Доброго времени суток!
Тема избитая, но прошу помочь.
Есть Image1 при клике по нему нужно создать точно такой же Image и его уже таскать по экрану. В качестве пособия исполшьзовал статью Перемещение Image"a по форме во время работы программы http://www.delphimaster.ru/articles/move-image.html и дописал
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
im: TImage;
begin
im:=TImage.Create(self);
im .Picture.Assign(image1.Picture);
Form1.Canvas.DrawFocusRect(rec);
with im do begin
setbounds(rec.left+x-x0,rec.top+y-y0,width,height); //перемещаем картинку
move:=false;
end;
end;
но на новом месте ничего не рисуется.
Заранее спасибо за ответ!

---

← →
Svit ©   (2004-09-01 21:35) [1]

Добавь Im.Parent := Form1;

---

← →
Svit ©   (2004-09-01 21:35) [2]

Добавь Im.Parent := Form1;

---

← →
ZedeS ©   (2004-09-01 21:46) [3]

Извините за панику,разобрался сам.
var
im: TImage;
begin
im:=TImage.Create(form1);
im .Picture.Assign(image1.Picture);
Form1.Canvas.DrawFocusRect(rec);
form1.Canvas.Draw(rec.left+x-x0,rec.top+y-y0,im.Picture.Graphic);//рисуем картинку
move:=false;

---

← →
Mihey_temporary ©   (2004-09-01 23:03) [4]

> ZedeS ©   (01.09.04 21:46) [3]


Извиняюсь за вопрос, но если

form1.Canvas.Draw(rec.left+x-x0,rec.top+y-y0,im.Picture.Graphic);//рисуем картинку

То зачем нужен TImage, когда достаточно TBitmap?

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c