@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