[novato_erick]

Hola chicos nuevamente un saludo amistoso a todos.

Hoy quise trabajar un DBGrid usando Arrastrar y Soltar o Drag and Drop lo interesante es que cuando mi DBGrid1.DataSource.DataSet esta desactivado el Evento MouseDown funciona pero al activarse por lo registros encontrado no entra a dicho evento.

Este es mi código de ejemplo:

Código Delphi [-]
procedure TFrmConsultarArticulo.DbgConsultaArticuloMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 //if (Sender = DbgConsultaArticulo) and (Button = mbLeft) then
 if ssLeft in shift then
 begin
    if DbgConsultaArticulo.DataSource.DataSet.Active = True then
    begin
      if DbgConsultaArticulo.DataSource.DataSet.RecordCount > 0 then
      begin
       if frmOrdenCompras <> nil then
       begin
       Variables.MyCodigoProductoCompra :=
        DbgConsultaArticulo.Fields[2].AsString;
       Self.DbgConsultaArticulo.BeginDrag(True);
       inherited;
      end;
    end;
    end;
 end;
end;

esto me imposibilita usar el comportamiento de arrastrar y soltar.
Las propiedades del DBGrid son las Siguientes:
DragMode = dmManual
DragKind = dkDrag

Si tienen alguna idea se lo agradecería

Saludos y Bendiciones a todos;

novato_erick