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;