Tema: Comprobar el nombre de la imagen en un drag and drop.
Ver Mensaje Individual
  #6  
Antiguo 16-01-2020
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
  
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
 
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.
Responder Con Cita