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 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