Renegade hat folgendes geschrieben: |
GetKeyState ist in der unit QControls - angeblich. |
Dann hast du falsche Informationen. GetKeyState ist in der Unit Windows, da es eine WinAPI Funktion ist.
Zitat: |
Hat jemand ne Idee? |
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
| function IsModKey(ModKey: Cardinal): Boolean; var Root: Window; Child: Window; RootX, RootY, WinX, WinY: Longint; Mask: Cardinal; begin XQueryPointer(Application.Display, XRootWindow(Application.Display, XDefaultScreen(Application.Display)), @Root, @Child, @RootX, @RootY, @WinX, @WinY, @Mask);
Result := Mask and ModKey <> 0; end; |
Delphi-Quelltext
1:
| if IsModKey(Mod1Mask) then |
Du musst jetzt nur noch herausfinden, welche Mod
xMask dem Num-Lock-Status entspricht.
ShiftMask = Shift (beide)
ControlMask = Ctrl (beide)
Button1Mask = Maus links