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;
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;