Drag and Drop Image

[artemavd]

Уже все облазил, но никак не могу найти то, что мне нужно, а если и находится что-то, то это совсем не то. Итак, нужно осуществить копирование Image1 (т.е. что копируем) на Image3 (т.е. на что копируем) при нажатой левой кнокпой мыши. Исходное изображение должно сохраньтся. Не должно быть никаких рамок около перетаскиваемого объекта. CopeRect и т.д. не канает. Кто что может по существу предложить?

[Баламут]

Но при перетаскивании должно быть видно то, что тянется? Если нет, то не вижу, собственно, в чем проблема. . И если да, то тоже... Просто хочется подробнее знать, чего ты добиваешься

[Stilet]

Такое подойдет?

[mutabor]

artemavd, есть хороший, мощный пакет компонентов для перетаскивания от Андерса Меландера (автор TGifImage)
http://melander.dk/articles/dragdrop52released/

[dmitriegorovih]

artemavd А у вас где находить image1? в смысле на каком компоненте?
Если чисто на форме то будет проще будет вот так

...
var
nah_left,nah_top:integer;
po:Tpoint;
b:boolean;

...

procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
//
end;

procedure TForm1.Image9DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
if b=true then begin
Timage(Sender).Left:=(Timage(Sender).Left+x-po.x);
Timage(Sender).Top:=(Timage(Sender).Top+y-po.y);
end else begin
po.x:=x;
po.y:=y;
b:=true;
nah_left:=image1.left;
nah_top:image1.top;
end;
end;

procedure TForm1.Image9EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
//
if TImage(target)=image3 then begin
 TImage(Sender).Left:=nah_left;
 TImage(Sender).Top:=nah_top;
 image3.Canvas.Draw(image1.Left,image1.Top,image1.Picture.Graphic);
 end;
 TImage(Sender).Left:=nah_left;
 TImage(Sender).Top:=nah_top;
 b:=false;
end;