BCB key事件中判断Shift、Alt、Ctrl状态：
类似此事件中
void __fastcall TForm1::keydown(TObject *Sender, WORD &Key,TShiftState Shift)
{
if(Key==VK_DELETE)
{
((TcxTextEdit*)Sender)->Top=-111;
((TcxTextEdit*)Sender)->Left=-111;
}
if(Key==VK_LEFT&&Shift.Contains(ssCtrl))
{
int left=((TcxTextEdit*)Sender)->Left-5;
if(left<0)left=0;
((TcxTextEdit*)Sender)->Left=left;
}
}
Shift是一个TShiftState集合，集合中元素值及含义参见下表
元素值及其含义：
ssShift:"Shift"键被按下；
ssAlt:"Alt"键被按下；
ssCtrl:"Ctrl"键被按下；
ssLeft:鼠标左键被按下；
ssRight:鼠标右键被按下；
ssMiddle:鼠标中键被按下；
ssDouble:左右鼠标同时被按下。
查看某一个元素是否在集合中，使用方法Contains()。
bool __fastcall Contains(const T) const;
如果集合中包含有元素T，则返回true，否则返回false。
一：字母和数字按键的建码值
收藏一下键盘虚拟键值
Backspace->8 Tab->9 Return->13 Pause->19 CapsLock->20 Esc->27 Space->32 PageUp->33 PageDown->34
End->35 Home->36 LeftArrow->37 UpArrow->38 RightArrow->39 DownArrow->40 PrintScrn->44 Insert->45 Delete->46
0->48 1->49 2->50 3->51 4->52 5->53 6->54 7->55 8->56 9->57
A->65 B->66 C->67 D->68 E->69 F->70 G->71 H->72 I->73 J->74 K->75 L->76 M->77
N->78 O->79 P->80 Q->81 R->82 S->83 T->84 U->85 V->86 W->87 X->88 y->89 Z->90
LWin->91 RWin->92 PopMenu->93
NumPad0->96 NumPad1->97 NumPad2->98 NumPad3->99 NumPad4->100 NumPad5->101 NumPad6->102 NumPad7->103 NumPad8->104 NumPad9->105
NumPad*->106 NumPad+->107 NumPad-->109 NumPad.->110 NumPad/->111
F1->112 F2->113 F3->114 F4->115 F5->116 F6->117 F7->118 F8->119
F9->120 F10->121 F11->122 F12->123 F13->124 F14->125 F15->126 F16->127
F17->128 F18->129 F19->130 F20->131 F21->132 F22->133 F23->134 F24->135
NumLock->144 ScrollLock->145
;->186 ,->188 .->190 /->191 `->192 [->219 \->220 ]->221 '->222
原文：https://blog.csdn.net/beslow/article/details/9492025
https://blog.csdn.net/u011981242/article/details/52332172/
https://jingyan.baidu.com/article/fedf073780e16335ac8977a4.html