Создание и перемещение 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;

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

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

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

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

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