BCB key事件中判断Shift、Alt、Ctrl状态

来源：互联网发布：linux运维书籍推荐编辑：程序博客网时间：2024/05/23 00:49

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->9Return->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