| 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
