Hola amigos estaba tratando de hacerlo con la misma forma que lo hago con VCL arrastrando una Timage a otra Timage pero con firemonkey es con TimageViewer y aun que cambie eso en el condigo de VCL no me a funcionado alguna idea?
Codigo del Timage al que se le hace el drop (vcl):
Código Delphi
[-]procedure TForm1.Image4DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(Sender as TImage).Picture.Assign((source as TImage).Picture);
end;
procedure TForm1.Image4DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Sender is TImage;
end;
crei que solo cambiando en el codigo Timage por Timageviewer funcionaria pero no