ANMERKUNG:
Klingt wie Sie Notwendigkeit die virtuelle Schlüsselcodekonstante, die in Ihrer TShiftstate Variable dargestellt wird. Using ganze Zahl (ssShift), ganze Zahl (ssAlt), etc. arbeitet nicht, da es den Ordnungswert des Satzeinzelteils zurückbringt. d.h. Verschiebung bringt 0, Alt zurückbringt 1, etc. zurück. Ich bin dieses bin nicht recht sicher, was Sie wünschen.
wenn Sie den virtuellen Schlüsselwert benötigen, etwas Ähnliches verwenden:
var kc: ganze Zahl;
…
kc: = 0;
wenn ssShift in AShiftState dann kc: = kc ODER VK_SHIFT;
wenn ssCtrl in AShiftState dann kc: = kc ODER VK_CONTROL;
wenn ssALT in AShiftState dann kc: = kc ODER VK_MENU;
wenn Sie sie für Mäusemitteilungen verwenden müssen, etwas Ähnliches verwenden:
wenn ssShift in AShiftState dann kc: = kc ODER MK_SHIFT;
wenn ssCtrl in AShiftState dann kc: = kc ODER MK_CONTROL;
//alt, das nicht in Mäusemitteilung gestützt wurde, würden Sie etwas wie GetKeyState verwenden müssen, es festzustellen