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

[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!!!