[maycampana]

Me alegré porque lo vi andando, pero no se que pasó que ya no funciona, el DragMode tiene que estar en dmManual no en Automatic.
Este es el código:
procedure Tdpersonales.ImageEnMView1DragOver(Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean);
begin
accept:=(source=DrawDBGrid1);
end;
Procedure Tdpersonales.DrawDBGrid1MousseDown(Sender: TObjects; Button: TMousseButton; Shift: TshiftState; X,Y : Integer);
begin
DrawDBGrid1.BeginDrag(false);
end;
procedure Tdpersonales.ImageEnMView1DragDrop(Sender, Source: TObject; X,Y: Integer);
begin
if source=DrawDBGrid1 then
begin
//aca todo el procedimiento que funciona bien

Bueno, lo que no anda es el moussedown, si alguien tiene idea de que puede ser que no me habilita el mousse para el arrastre, bienvenida su ayuda.
No puedo encontrar la falla a pesar de que en otra version de la aplicación funciona perfectamente, me tiene mal. MIL GRACIAS
end;