Einzelnen Beitrag anzeigen

thomaskroger

Registriert seit: 22. Mär 2009
16 Beiträge
 
#1

TrackBar und GetAsyncKeyState hat Probleme mit der linken Maustaste in RADstudio11

  Alt 4. Okt 2022, 10:50
Was gestern ging muss heute nicht zwingend gehen...

Bislang verwendete ich folgenden Code um beim Loslassen der linken Maustaste die aktuelle Position der Trackbar auszuwerten.
In RAD Studio 11, also Delphi und C++, geht es nicht mehr:

Delphi-Quellcode:
void __fastcall TForm9::TrackBar1Change(TObject *Sender)
{
   int AsyncKeyState_VK_LBUTTON = GetAsyncKeyState(VK_LBUTTON);    //VK_LBUTTON $1 Linke Maustaste
   Memo1->Lines->Add(IntToHex(AsyncKeyState_VK_LBUTTON, 4));

//   if (GetAsyncKeyState(VK_LBUTTON) == 0)
   if (AsyncKeyState_VK_LBUTTON ==0)
   {
     Memo1->Lines->Add(IntToHex(AsyncKeyState_VK_LBUTTON,4));
   }

}
Dabei wurde bei gedrückter Maustaste FFFF8000 zurück gegeben und nach einem Tasten-Release eine 0.
Nun wird aber nach dem Update von RADstudio 10 auf 11 nach einem Tasten-Release kein TrackBar1Change-Ereignis mehr ausgelöst.. ?
In älteren C++ Kompilationen (RADstudio10, Delphi XE6) geht es einwandfrei.

Delphi-Quellcode:
procedure TForm9.TrackBar1Change(Sender: TObject);
var
 i:integer;
begin
    i:= GetAsyncKeyState(VK_LBUTTON);
    Memo1.Lines.Add(IntToHex(i, 4));

  if (i =0) then
  begin
   Memo1.Lines.Add(IntToHex(i, 4));
  end;
end;
Delphi XE6 , wobei allerdings zwei mal TrackBar1Change ausgelöst wird:
(4 mal 0 wegen 2 mal Memo1.Lines.Ad)

FFFF8001 Bewegen
0000 loslassen
0000
0000
0000

Also, mit Delphi XE6 und RADstudio10 geht es wie bisher einwandfrei, in RADstudio11 nicht:
Die Frage ist, was hat sich verändert?
Gibt es Parameter, an denen wir drehen können?
Workaround?

Vielen Dank für frischen Ideen
  Mit Zitat antworten Zitat