NOTA:
De geluiden als u vergen de virtuele belangrijkste die codeconstante in uw variabele TShiftstate wordt vertegenwoordigd. Gebruikend geheel (ssShift), geheel (ssAlt), zal enz. niet werken aangezien het de rangschikkende waarde van het vastgestelde punt zal terugkeren. d.w.z. zal de Verschuiving 0 terugkeren, zal alt 1, enz. terugkeren. Ik ben vrij zeker dit niet is wat u wilt.
als u de virtuele belangrijkste waarde nodig hebt, gebruik iets in die aard:
var kc: geheel;
…
kc: = 0;
als ssShift in AShiftState toen kc: = kc OF VK_SHIFT;
als ssCtrl in AShiftState toen kc: = kc OF VK_CONTROL;
als ssALT in AShiftState toen kc: = kc OF VK_MENU;
als u het voor muisberichten moet gebruiken, gebruik iets in die aard:
als ssShift in AShiftState toen kc: = kc OF MK_SHIFT;
als ssCtrl in AShiftState toen kc: = kc OF MK_CONTROL;
//alt niet in muisbericht wordt gesteund, zou u iets als GetKeyState moeten gebruiken die om het te bepalen