日本免费全黄少妇一区二区三区-高清无码一区二区三区四区-欧美中文字幕日韩在线观看-国产福利诱惑在线网站-国产中文字幕一区在线-亚洲欧美精品日韩一区-久久国产精品国产精品国产-国产精久久久久久一区二区三区-欧美亚洲国产精品久久久久

  1. 首頁 > 云知道 > >

9.鍵盤鼠標和文件編程 怎么進入編程界面( 二 )

小知識鍵盤


VK_W
[h/]57
87
W鍵
VK X
[h/]58
88
X鍵
VK
[h/]59
89
Y鍵
VK
5A
90
Z鍵
VK_NUMPAD0
60
96
數(shù)字鍵0鍵
VK_NUMPAD1
61
97
數(shù)字鍵1
VK_NUMPAD2
62
98
數(shù)字鍵2
VK_NUMPAD3
62
99
數(shù)字鍵3鍵
VK _數(shù)字4
64
100
數(shù)字鍵4鍵
VK_NUMPAD5
65
[h/]101
數(shù)字鍵5鍵
VK_NUMPAD6
66
102
數(shù)字鍵6鍵
VK_NUMPAD7
67
[h/]103
數(shù)字鍵7鍵
VK_NUMPAD8
68
[h/]104
數(shù)字鍵8鍵
VK_NUMPAD9
69
105
數(shù)字鍵9鍵
VK _乘法
[h/]6A
[h/]106
數(shù)字鍵盤上的*鍵
VK _地址
6B
[h/]107
數(shù)字鍵盤上的鍵
VK _分隔符
6C
108
分隔符鍵
VK _減法
[h/]6D
[h/]109
-數(shù)字鍵盤上的鍵
VK _十進制
[h/]6E
[h/]110
的 。數(shù)字鍵盤上的鍵
VK _除
6F
[h/]111
數(shù)字鍵盤上的/鍵
VK_F1
[h/]70
112
F1鍵
VK F2
[h/]71
113
F2鍵
VK_F3
[h/]72
114
F3鍵
F4 VK
[h/]73
115
F4鍵
VK_F5
74
116
F5鍵
F6 VK
[h/]75
117
F6鍵
F7 VK
76
118
F7鍵
F8 VK
77
119
F8鍵
VK_F9
78
120
F9鍵
F10 VK
79
121
F10鍵
VK_F11
7A
122
F11鍵
VK_F12
7B
123
F12鍵
VK _努姆洛克
90
144
數(shù)字鎖密鑰
VK _卷軸
91
145
ScrollLock鍵
VK盧溫
91
左win鍵
VK萊茵
92
右win鍵
VK應(yīng)用程序
93
右Ctrl左鍵，點擊相當于點擊鼠標右鍵，會彈出快捷菜單 。
] 186
；(分號)
187
= key
[h/]188
，鍵(逗號)
[h/]189
-鍵(減號)
190
。關(guān)鍵點(句號)
191
/key
192
`鍵(在Esc鍵下)
[h/]219
[鍵
220
\ key
[h/]221
]鍵
[h/]222
& # 39；鑰匙(引號)
1.2鍵盤事件OnKeyDown按下鍵盤上的任何鍵都會觸發(fā)此事件 。字母鍵、數(shù)字鍵、功能鍵、Ctrl、Shift或Alt等鍵都會觸發(fā)此事件 。
OnKeyPress按下鍵盤上的字符鍵會觸發(fā)該事件，但單獨按下功能鍵、Ctrl、Shift或Alt不會觸發(fā)該事件 。
OnKeyUp當鍵盤上的任意鍵被按下并釋放時，將觸發(fā)該事件 。字母鍵、數(shù)字鍵、功能鍵、Ctrl、Shift或Alt等鍵都會觸發(fā)此事件 。
TShiftState在OnKeyDown、OnKeyUp、OnMouseDown、OnMouseUp等事件中，有一個類型為TShiftState的變量Shift，它的值用來判斷鍵盤上的鍵被按下時Shift、Alt、Ctrl鍵的狀態(tài)，或者是按下鼠標的狀態(tài) 。
tshiftstate類型的定義:
Type TShiftState = set of(ss shift，ssAlt，ssCtrl，ssLeft，ssRight，ssMiddle，ss double)；
1.3鍵盤編程示例例1:按鍵時改變窗體的顏色 。
varform color:t color；過程TForm1 。FormKeyDown(發(fā)送方:TObjectvar鍵:WordShift:TShiftState)；beginform color:= form 1 。顏色；Form1 。顏色:= clGreenend；過程TForm1 。FormKeyUp(發(fā)件人:TObjectvar鍵:Wordshift:TShiftState)；開始表格1 。color:= form color；end；
例2:模擬按下鍵盤的一個鍵 。
本例需要使用Delphi WinAPI的消息函數(shù)PostMessage，界面如下:

9.鍵盤鼠標和文件編程 怎么進入編程界面


示例代碼:
過程TForm1 。Button1Click(發(fā)件人:to object)；begin//aPostMessage(edit 1 。Handle，WM_KEYDOWN，65，0)；end；過程TForm1 。Button2Click(發(fā)送方:to object)；begin//bPostMessage(edit 1 。Handle，WM_KEYDOWN，66，0)；end；過程TForm1 。Button3Click(發(fā)送方:to object)；begin//cPostMessage(edit 1 。Handle，WM_KEYDOWN，67，0)；end；

推薦閱讀