Ver Mensaje Individual
  #7  
Antiguo 20-09-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.

Última edición por ecfisa fecha: 20-09-2010 a las 20:59:38.
Responder Con Cita