NOTATKA:
Dźwięk jak ty potrzebować the wirtualny kluczowy kod konstanta reprezentować w twój TShiftstate zmienna. Using integer (ssShift), integer (ssAlt), Etc. pracować gdy ono wracać the rzecz wartość the ustalony rzecz. i.e. Przesunięcie wracać (0), alt wracać (1), Etc. I być dosyć pewny być być być ty chcieć.
jeżeli ty potrzebować the wirtualny kluczowy wartość, używać potrzebować jak potrzebować:
var kc: integer;
…
kc: = (0);
jeżeli ssShift w AShiftState wtedy kc: = kc LUB VK_SHIFT;
jeżeli ssCtrl w AShiftState wtedy kc: = kc LUB VK_CONTROL;
jeżeli ssALT w AShiftState wtedy kc: = kc LUB VK_MENU;
jeżeli ty potrzebować ono dla mysz wiadomość, używać potrzebować jak potrzebować:
jeżeli ssShift w AShiftState wtedy kc: = kc LUB MK_SHIFT;
jeżeli ssCtrl w AShiftState wtedy kc: = kc LUB MK_CONTROL;
//alt wspierać w mysz wiadomość, ty musieć musieć jak GetKeyState ono