Abfragen, ob Mouse down

[AlphaBug]

@barnti

Und wenn du anstelle von GetAsyncKeyState() GetKeyState() verwendest ?

Delphi-Quellcode:

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