[jjuguera]

Empezado por escafandra

Código Delphi [-]
procedure TForm1.Image2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  (Sender as TImage).Picture.Assign((Source as TImage).Picture);
  ShowMessage((Source as TImage).Name);
end;

Saludos.

Muchisimas gracias.