Difference between revisions of "Check status of special keys/de"
From Free Pascal wiki
Jump to navigationJump to search (Created page with "{{Check status of special keys}} <br> <br> Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> Die Prozeduren ermitteln den Status der Tasten: * Caps Lock oder...") |
m |
||
| Line 60: | Line 60: | ||
<br> | <br> | ||
--[[User:Olaf|Olaf]] 07:51, 2 June 2013 (UTC) | --[[User:Olaf|Olaf]] 07:51, 2 June 2013 (UTC) | ||
| − | [[Category:Code Parts/de]] | + | [[Category:Code Parts/de]]{{AutoCategory}} |
Revision as of 08:42, 1 August 2013
│
Deutsch (de) │
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Prozeduren ermitteln den Status der Tasten:
- Caps Lock oder Shift Lock oder Umschaltsperre oder Feststelltaste
- Insert oder Einfügen-Taste
- Num Lock oder Num-Taste oder Num-Lock-Taste
- Scroll Lock oder Rollen-Taste oder Scroll-Lock-Taste
Beispiel:
uses
Windows, ...;
...
function funLowOrderBitSet(intWert: integer): boolean; inline;
begin
Result := (intWert and 1 > 0);
end;
// ermittelt, ob die Caps-Lock-Taste aktiv ist
function funCapsLock: boolean;
begin
Result := funLowOrderBitSet(GetKeyState(VK_CAPITAL));
end;
// ermittelt, ob die Einfügen-Taste aktiv ist
function funInsertOn: boolean;
begin
Result := funLowOrderBitSet(GetKeyState(VK_INSERT));
end;
// ermittelt, ob die Num-Lock-Taste aktiv ist
function funNumLock: boolean;
begin
Result := funLowOrderBitSet(GetKeyState(VK_NUMLOCK));
end;
// ermittelt, ob die Scoll-Lock-Taste aktiv ist
function funScrollLock: boolean;
begin
Result := funLowOrderBitSet(GetKeyState(VK_SCROLL));
end;
...
--Olaf 07:51, 2 June 2013 (UTC)
