Consulta Sobre Drag and Drop

[[escafandra]]

Si tienes varias imágenes Sender te da cual es. Si lo conviertes a TImage: TImage(Sender) esa es la imagen. Las puedes distinguir por su nombre: TImage(Sender).Name. Date cuenta que en el ejemplo se le asigna un nombre.


Para agregar un texto puedes usar:

Código Delphi [-]
TImage(Sender).Canvas.TextOut(X,Y, TImage(Sender).Name);

Saludos.