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,