[maycampana]

OK, ahí va de nuevo

Código Delphi [-]
 
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
end;

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