Cuestión : cómo simplificar esto

Hola,

Shift: TShiftState; el

TShiftState = fijó de (ssShift, ssAlt, ssCtrl, ssLeft del
, ssRight, ssMiddle, ssDouble);

Ok, pero su no compatible con otros idiomas como C++
So que necesito hacerlo compatible en mi Param, like

TMyParam = kbShift lleno del record
: DWORD;
end;

I que hace de esta manera… el ssShift del

if en el then
kbShift del cambio: = número entero (ssShift); ssAlt del
if en el then
kbShift del cambio: = kbShift o número entero (ssAlt); ssCtrl del
if en el then
kbShift del cambio: = kbShift o número entero (ssCtrl); ¿
//for cada tipo que necesito hacerlo, pero un lazo puede hacer quizá esto? el

So del
… que puedo llamar el ssCtrl reverso del like

if de la manera en el

But del then
del kbShift…, yo piensa que hay una mejor manera de hacer que… intenté colocar solamente ningún success

kbShift: = -1;
for i: = bajo (TShiftState) al alto then
kbShift del do
if (TShiftState (i) (de TShiftState) en cambio): = kbShift o TShiftState (i); ¡trabajo del

not del
…! ¿idea del hehe

Some?

Regards,
Carlos
class= del

Respuesta : cómo simplificar esto

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

Otras soluciones  
 
programming4us programming4us