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;