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; end;
ImagenDestinoDragDrop:
Código Delphi
[-]
procedure TForm1.ImagenDestinoDragDrop(Sender, Source: TObject; X,Y: Integer);
begin
with ImgDestino do
begin
Picture.Assign(FImgOrigen.Picture); Left:= ImgContenedor.Left;
Top:= ImgContenedor.Top;
end;
end;
Así se superpone ImgDestino a ImgContenedor.
Saludos.
