Drag&Drop para clasificar Imagenes

[gcaffe]

Hola a todos:
Les consulto el siguiente problema:
En un form tengo 10 TImage sobre un panel (2 filas x 5 columnas), al iniciar el formulario ejecuto este comando:

Código Delphi [-]
for i := 0 to Self.ComponentCount - 1 do begin
       if (Self.Components[i] is TImage) then TImage(Self.Components[i]).Picture.Graphic := nil;
   end;

de esta forma la propiedad ... Graphic queda igual a nil en todos ellos.

Luego con un procedimiento pongo 5 imágenes jpg en la primera fila. Ahora de lo que se trata es organizarlas o acomodarlas según se quiera, las imagenes tienen por nombre Image1, Image2,... Image10. Todas ellas tienen por común lo siguiente

Código Delphi [-]
DragMode := dmAutomatic
OnDragOver := ImageDragOver
OnDragDrop := ImageDragDrop

los eventos estan programados así:

Código Delphi [-]
procedure Tfrm.ImageDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState;
  var Accept: Boolean);
begin
     Accept := (Source is TImage) and (TImage(Sender).Picture.Graphic = nil);
end;
 
procedure Tfrm.ImageDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
   if (Source is TImage) then begin
      TImage(Source).Left := TImage(Sender).Left;
      TImage(Source).Top := TImage(Sender).Top;
      TImage(Sender).Picture.Graphic := nil;
   end;
end;

De esta forma si arrastro una imagen a un TImage vacío (=nil) lo suelto y se coloca en el nuevo lugar y su sitio original queda vacio con la propiedad ...Graphic := nil, al menos esa es la teoría.

El asunto funciona cuando traslado, por ejemplo la imagen1 a la imagen7, la imagen2 a la imagen6.. y así. El problema se presenta cuando quiero arrastrar una imagen a uno de los sitios que ha quedado vacio, por ejemplo si ahora quiero arrastrar la imagen6 a la imagen1, no me deja. Parece ser que se queda algo en el sitio de la imagen original que no permite dejar caer una nueva imagen.
Pido ayuda para saber que es lo que tengo que hacer para habilitar el sitio que quedó vacio para que pueda recibir otra imagen.

Muchas gracias,

[[seoane]]

Cuando "sueltas" la imagen lo que estas haciendo es colocar un TImage encima de otro, así que el espacio que ocupaba queda vació. Por eso cuando intentas mover una imagen al sitio que quedo vacío no funciona, porque el método que utilizas solo mueve una Timage sobre otro, no a un sitio vacío.

Una solución podrá ser intercambiar los sitios de las dos imágenes, algo así:

Código Delphi [-]
procedure Tfrm.ImageDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  i,j: Integer;
begin
  if (Source is TImage) then 
  begin
    i := TImage(Source).Left;
    j := TImage(Source).Top;
    TImage(Source).Left := TImage(Sender).Left;
    TImage(Source).Top := TImage(Sender).Top;
    TImage(Sender).Left := i;
    TImage(Sender).Top := j;
    TImage(Sender).Picture.Graphic := nil;
   end;
end;

[gcaffe]

Muchas gracias Seoane, tu sugerencia funcionó. Muchas gracias.