Autor Beitrag
F34r0fTh3D4rk
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 5285
Erhaltene Danke: 28

Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
BeitragVerfasst: Mo 14.01.08 21:13 
hi,

Ich versuche in meinem OnIdle Event mittels GetAsyncKeyState mehrere Tasten gleichzeitig abzufragen,
da mehrere Tasten gedrückt sein sollen. Allerdings klappt das nicht so wirklich.
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
    if boolean(getasynckeystate(ord('A'))) then
      astr := astr + 'A';
    if boolean(getasynckeystate(ord('B'))) then
      astr := astr + 'B';
    if boolean(getasynckeystate(ord('C'))) then
      astr := astr + 'C';

Wie kann ich das beheben ? Oder gibt es einen anderen Weg, um das zu Lösen ?

mfg


Moderiert von user profile iconjasocul: Topic aus Multimedia / Grafik verschoben am Di 15.01.2008 um 07:55
Xion
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
Beiträge: 1952
Erhaltene Danke: 128

Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
BeitragVerfasst: Mi 16.01.08 10:11 
user profile iconF34r0fTh3D4rk hat folgendes geschrieben:
Allerdings klappt das nicht so wirklich.

nämlich? Was funktioniert nicht?

ausblenden Delphi-Quelltext
1:
2:
3:
4:
      if GetAsyncKeyState(187)<>0 then //+
        {+ ist gedrückt}
      if GetAsyncKeyState(189)<>0 then //-
        {- ist gedrückt}

so funktionierts bei mir ohne Probleme, nur merkt er sich den letzten Tastendruck, was manchmal stört, machmal aber auch hilft ;)

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
Xion
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
Beiträge: 1952
Erhaltene Danke: 128

Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
BeitragVerfasst: Sa 09.02.08 10:54 
ausblenden Delphi-Quelltext
1:
 if GetAsyncKeyState(187)<0 then //+					

und so muss es sein, damit er nur die atm-gedrückten Knöpfe erkennt

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)