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

[jjuguera]

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.

[Casimiro Noteví]

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

[jjuguera]

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;

[[escafandra]]

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.

[jjuguera]

Empezado por escafandra

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.

[Casimiro Noteví]

Empezado por jjuguera

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

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