Cita:
Empezado por escafandra
Bienvenido al foro jjuguera
Cada TImage tiene un nombre que lo identifica y puedes usarlo o reasignarlo. También tienes una propiedad Tag que puedes usar como un puntero a lo que quieras.
Saludos.
|
Perdona mi torpeza, pero no logro entenderlo. Lo más probable es que yo me haya expresado mal. Lo que pretendo es esto:
procedure TForm1.Image2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:= Sender is TImage;
end;
procedure TForm1.Image2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(Sender as TImage).Picture.Assign((Source as TImage).Picture);
showMessage(Nombre del objeto TImage (origen) que se ha alojado en este);
end;
Gracias de nuevo.