Drag Drop TImage

[ecfisa]

Hola Julián.

Me quede pensando en tu caso... y se me ocurrió algo.

Al ejemplo anterior, agregale en diseño un TImage más: ImgContenedor, este va a ser el contenedor de la imágen principal. a la que vás a agregar los pedales. (Por lo que deberá tener un tamaño adecuado para 'contener' a ImgDestino)

Para el ejemplo yo ubiqué ImgDestino en la esquina superior izquierda del ImgContenedor, vos situalo donde quieras.

En ImgOrigen irías mostrando las imágenes de distintos pedales, para que realizen el Drag & Drop.

Tendrías que modificar dos eventos en el ejemplo anterior: FormCreate y ImagenDestinoDragDrop:

FormCreate:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  FImgOrigen:= TImage.Create(nil);
  with FImgOrigen do
  begin
    Picture.LoadFromFile('C:\Tucan.jpg');
    Stretch:= True;
    Parent:= Self;
    OnClick:= ImageClick;
  end;
  ImgDestino.BringToFront; // llevar imágen destino al frente
end;

ImagenDestinoDragDrop:

Código Delphi [-]
 
procedure TForm1.ImagenDestinoDragDrop(Sender, Source: TObject; X,Y: Integer);
begin
 with ImgDestino do
 begin
   Picture.Assign(FImgOrigen.Picture); // mostrar imágen
   // ImgDestino se situa en la esquina superior izquierda
   Left:= ImgContenedor.Left;       
   Top:= ImgContenedor.Top;
  end; 
end;

Así se superpone ImgDestino a ImgContenedor.

Saludos.