Difference between revisions of "Check status of special keys/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting; deleted category already in page template) |
||
| (One intermediate revision by one other user not shown) | |||
| Line 1: | Line 1: | ||
{{Check status of special keys}} | {{Check status of special keys}} | ||
| − | + | ||
| − | Zurück zur Seite [[code examples/de|Code Beispiele]]. | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. |
| − | + | ||
| − | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | + | |
| + | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | ||
| + | |||
Die Prozeduren ermitteln den Status der Tasten: | Die Prozeduren ermitteln den Status der Tasten: | ||
* Caps Lock oder Shift Lock oder Umschaltsperre oder Feststelltaste | * Caps Lock oder Shift Lock oder Umschaltsperre oder Feststelltaste | ||
| Line 9: | Line 11: | ||
* Num Lock oder Num-Taste oder Num-Lock-Taste | * Num Lock oder Num-Taste oder Num-Lock-Taste | ||
* Scroll Lock oder Rollen-Taste oder Scroll-Lock-Taste | * Scroll Lock oder Rollen-Taste oder Scroll-Lock-Taste | ||
| − | + | ||
Beispiel: | Beispiel: | ||
| − | + | ||
| − | <syntaxhighlight> | + | <syntaxhighlight lang="pascal"> |
uses | uses | ||
Windows, ...; | Windows, ...; | ||
| Line 58: | Line 60: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 01:27, 11 February 2020
│
Deutsch (de) │
Zurück zur Seite Code Beispiele.
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;
...
