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

最新推荐文章于 2016-09-08 16:17:19 发布

点点朋

最新推荐文章于 2016-09-08 16:17:19 发布

阅读量3.7k

点赞数

分类专栏： bcb 文章标签： shift alt key TShiftState 键值虚拟值

本文链接：https://blog.csdn.net/beslow/article/details/9492025

版权

bcb 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

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