Componente de arrastrar

[roman]

Hola gianfranco_tont,

En mi opinión, el ejemplo que te esbozó ecfisa desde un principio es el camino a seguir. Tú quieres mostrar una banda de imágenes (y otra información) que provienen de una base de datos, por lo que la opción de usar un DBCtrlGrid es la más adecuada, ya que dicho control te facilita todo el desplazamiento y presentación de los datos.

Un pequeño inconveniente es que las imágenes las guardas en archivos fuera de la base de datos, por lo que no te vale colocar un DBImage. Pero no es un gran inconveniente. Coloca en su lugar un Image normal en el panel del DBCtrlGrid y en el evento OnPaintPanel del DBCtrlGrid cargas la imagen que corresponda:

Código Delphi [-]
procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);
begin
  Image1.Picture.LoadFromFile(DBCtrlGrid.DataSource.DataSet['ruta']);
end;

Para arrastrar la imagen únicamente tienes que usar los eventos OnDragOver y OnDragDrop del DBGrid:

DragOver:

Código Delphi [-]
Accept := Source is TImage;

DragDrop:

Código Delphi [-]
Valor := DBCtrlGrid1.DataSource.DataSet.FieldByName('...').AsString;

Es decir, usas el valor del campo del dataset como requieras.

Para iniciar el arrastre, ecfisa usó el evento OnMouseDown del (DB)Image, pero tiene un problema, y es que debes seleccionar primero el panel deseado y luego hacer el arrastre. Es decir, si intentas arrastrar directamente un panel que no está seleccionado no se puede, o al menos es lo que he observado.

Para remediar esto basta que uses el evento OnMouseDown del DBCtrlGrid y ahí hagas lo mismo:

Código Delphi [-]
Image1.BeginDrag(true);

// Saludos