Abfragen, ob Mouse down

[AlphaBug]

@barnti

Also bei mir startet er, aber die Zelle kann nirgendwo abgelegt werden.

Delphi-Quellcode:

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
  if GetAsyncKeyState(VK_RBUTTON) <> 0 then
    DBGrid1.BeginDrag(false);
end;