关于virtual key code

Question

不可能,只能这样if( KeyCode==VK_A && GetKeyState(VK_CONTROL) <0)
{
  //OK
}

Answer 1

哦,你用的是Delphiif (Key=VK_A) and (GetKeyState(VK_CONTROL) <0 ) then
begin
end

Answer 2

我试了上面的代码，但是不VK_A编译不过去为什么，

Answer 3

不好意思,我忘了,Delphi不对VK_0..VK_0,VK_A..VK_Z进行转换.它们的值如下:
#define VK_0 0x30 
#define VK_1 0x31
#define VK_2 0x32
#define VK_3 0x33
#define VK_4 0x34
#define VK_5 0x35
#define VK_6 0x36
#define VK_7 0x37
#define VK_8 0x38
#define VK_9 0x39#define VK_A 0x41
#define VK_B 0x42
#define VK_C 0x43
#define VK_D 0x44
#define VK_E 0x45
#define VK_F 0x46
#define VK_G 0x47
#define VK_H 0x48
#define VK_I 0x49
#define VK_J 0x4a
#define VK_K 0x4b
#define VK_L 0x4C
#define VK_M 0x4D
#define VK_N 0x4E
#define VK_O 0x4F
#define VK_P 0x50
#define VK_Q 0x51
#define VK_R 0x52
#define VK_S 0x53
#define VK_T 0x54
#define VK_U 0x55
#define VK_V 0x56
#define VK_W 0x57
#define VK_X 0x58
#define VK_Y 0x59
#define VK_Z 0x5a{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
比如VK_A,就用$41代替吧.

Answer 4

KeyDown事件中不是有一个ShiftState变量吗？用他判断Ctrl状态，然后再判断A。