Abfragen, ob Mouse down

[barnti]

Hallo,

ich habe folgendes herausgefunden.

Ist einmal der linke Mousebutton betätigt worden, bleibt GetAsyncKeyState(VK_LBUTTON) immer auf true.

Erst nachdem ich nocheinmal mit links in das Grid klicke, liefert die funktion wieder den Wert false.

Wie kann ich erreichen, dass nach dem abgeschlossenen 'Drag-drop-Vorgang' der Button-State wieder zurüchgesetzt wird?

Habe folgendes versucht, leider ohne Erfolg:

Delphi-Quellcode:

procedure TForm_Main.DBGrid_MasterColEnter(Sender: TObject);
var mousedown: Smallint;
begin
  mousedown:= GetAsyncKeyState(VK_LBUTTON);
  if  mousedown<> 0 then
    begin
      DBGrid_Master.BeginDrag(false);
    end;
end;