Steuerungstasten "präzise" abfangen

[Coder1990]

@Uwe Raabe
Ty dein Post war mir eine große Hilfe, jetzt scheint es zu funktionieren!

Delphi-Quellcode:

const

C_LShift = 1;
C_RShift = 2;
C_LCtrl = 3;
C_RCtrl = 4;
C_LAlt = 5;
C_RAlt = 6;

var

LAlt,RAlt,LCtrl,RCtrl,LShift,RShift:boolean;
function SetKeysGetChange:shortint;

implementation

uses Windows;

function SetKeysGetChange:shortint;
begin result:=0;

if (GetKeyState(VK_LSHIFT) < 0) <> LShift then
  result := C_LShift;
LShift := GetKeyState(VK_LSHIFT) < 0;

if (GetKeyState(VK_RSHIFT) < 0) <> RShift  then
  result := C_RShift;
RShift := GetKeyState(VK_RSHIFT) < 0;

if (GetKeyState(VK_LCONTROL) < 0) <> LCtrl  then
  result := C_LCtrl;
LCtrl := GetKeyState(VK_LCONTROL) < 0;

if (GetKeyState(VK_RCONTROL) < 0) <> RCtrl  then
  result := C_RCtrl;
RCtrl := GetKeyState(VK_RCONTROL) < 0;

if (GetKeyState(VK_LMENU) < 0) <> LAlt  then
  result := C_LAlt;
LAlt := GetKeyState(VK_LMENU) < 0;

if (GetKeyState(VK_RMENU) < 0) <> RAlt  then
  result := C_RAlt;
RAlt := GetKeyState(VK_RMENU) < 0;
end;

@quendolineDD

Danke für das Lesen der Problemstellung! (nicht)

Es geht hier darum Änderungen festzustellen und nicht einfach alles in einem Label auszugeben..

MfG