Comprobar el nombre de la imagen en un drag and drop.
 

Buenas, mi nombre es Juan (he buscado si había algún foro para presentarse pero no lo encuentro...). El motivo de mi ingreso en el foro y la apertura de este hilo viene dado por una duda, bueno más que duda que no se como hacerlo. He hecho un procedimiento para arrastrar una imagen desde un TImage (image1) y soltarla a otro TImage vacio (image2), para hacer un juego de arrastrar imágenes. Me gustaría comprobar que las imágenes se corresponden cada una con el cuadro que tienen asignado al hacer el DragDrop, pero no se como comprobarlo.

Muchas Gracias.

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.

Por favor, no olvides usar las etiquetas para código. Gracias.

Lo siento, hasta que no me haga..., muchas gracias.

Código Delphi [-]
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;

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.

Es normal, por cierto, ¡¡¡bienvenido!!! :)