Aus DbGrid Datensatz per Drag&Drop verschieben

[mischerr]

Zitat:

Ja natürlich. Das habe ich auch so in meinem Source.

Nein, im Code fehlt das "DBGrid." vor dem "BeginDrag()"

Zitat:

Problem ist aber, dass OnMouseDown nicht aufgerufen wird

Alternativ über das MouseMove-Event versuchen:

Delphi-Quellcode:

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if (GetAsyncKeyState(VK_LBUTTON) and $8000)<>0 then
    if not Mouse.IsDragging then
      DBGrid1.BeginDrag(false, 0);
end;