Drag&Drop einer TImage-Komponente

[F.W.]

Hallöle! Bin gerade beim Suchen hierüber gestolpert...

Wenn ich dich richtig verstanden habe gibt es auf deinem Formular ein Image, eine ScrollBox, (bis jetzt noch??)eine PaintBox und das Panel, auf dem das Image liegt.

Wenn du das image vom Panel auf die PaintBox drauflegen willst, musst du das manuell machen:

Delphi-Quellcode:

{Das DragOver nicht vergessen! Sonst wird's nicht akzeptiert!}
 Accept := (Source is TImage);

(*********Das DragDrop für die PaintBox*************)
 if not Source is TImage then Exit;

{Das Image vom Panel lösen und auf die übergeordnete Komponente der PaintBox legen}
 TImage(Source).Parent := TPaintBox(Sender).Parent;
{Die manuelle Anpassung der Position}
 TImage(Source).Left := TPaintBox(Sender).Left;
 TImage(Source).Top := TPaintBox(Sender).Top;
{ggf. soll die größe des Images auf die der PaintBox zugeschnitten werden}
 TImage(Source).Width := TPaintBox(Sender).Width;
 TImage(Source).Height := TPaintBox(Sender).Height;

(*********Wenn dus auf die ScrollBox ziehen willst*************)
 if not Source is TImage then Exit;

{Das Image vom Panel lösen und auf die ScollBox legen}
 TImage(Source).Parent := ScrollBox1;
{Die manuelle Anpassung der Position}
 TImage(Source).Left := X;
 TImage(Source).Top := Y;
        {...}

Hoffe es hilft dir noch!