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;

[Tyrael Y.]

Vielleicht hilft dir ja mouse_event aus der Win SDK weiter...

The mouse_event function synthesizes mouse motion and button clicks.

VOID mouse_event(

DWORD dwFlags, // flags specifying various motion/click variants
DWORD dx, // horizontal mouse position or position change
DWORD dy, // vertical mouse position or position change
DWORD dwData, // amount of wheel movement
DWORD dwExtraInfo // 32 bits of application-defined information
);

..guck mal weiter in der Hilfe

[barnti]

Hi,

habe ich mal so gemacht:

Delphi-Quellcode:

procedure TForm_Main.DBGrid_MasterEndDrag(Sender, Target: TObject; X,
  Y: Integer);
begin
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
...

Leider keine Änderung. Die If-Bedingung liefert weiterhin nur 'true'.

Ich weiß leider nicht weiter. Noch Ideen? Wie kann man dafür sorgen, dass 'GetAsyncKeyState(VK_LBUTTON)<>0'
nicht mehr 'true' liefert?!

Danke für eure Hilfe!

Gruß,

Barnti