NOTA:
Suena como usted necesidad el constante virtual del código dominante representado en su variable de TShiftstate. Usar el número entero (ssShift), el número entero (ssAlt), el etc. no trabajará pues volverá el valor ordinal del artículo del sistema. es decir el cambio volverá 0, alt volverá 1, el etc. Estoy bastante seguro esto no soy lo que usted quiere.
si usted necesita el valor dominante virtual, utilizar algo similar:
var kc: número entero;
…
kc: = 0;
si ssShift en AShiftState entonces kc: = kc O VK_SHIFT;
si ssCtrl en AShiftState entonces kc: = kc O VK_CONTROL;
si ssALT en AShiftState entonces kc: = kc O VK_MENU;
si usted necesita utilizarlo para los mensajes del ratón, utilizar algo similar:
si ssShift en AShiftState entonces kc: = kc O MK_SHIFT;
si ssCtrl en AShiftState entonces kc: = kc O MK_CONTROL;
//alt no apoyado en el mensaje del ratón, usted tendría que utilizar algo como GetKeyState determinarlo