delphi OnKeyDown 事件声明

OnKeyDown 事件声明

procedure onKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

在 OnKeyDown 事件中，我们有三个 TKeyEvent 类型的参数，我们将在下面详细说明：

Sender：它从事件执行的地方向我们发送 TObject。

Key : Word 类型，我们获取被按下的 Key 的代码。

Shift：我们获取 Shift、Ctrl、Alt 和鼠标键的状态。

OnKeyDown 事件的使用示例

在下面的例子中，我们使用主窗体的onKeyDown事件，检测用户是否按下了Escape键。

如果您这样做，我们会询问您是否要关闭程序，如果您回答是，我们将结束应用程序的执行。

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

  if Key=VK_ESCAPE then

  begin

    if MessageDlg('Desea cerrar el programa?',

    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then

    begin

      Application.Terminate;

    end;

  end;

end;

Virtual Key Codes，来自Word类型Key参数

vk_BackSpace = 8

VK_TAB = 9

VK_RETURN = 13

vk_Command = 15（M）

VK_SHIFT = 16

VK_CONTROL = 17

VK_ALT = 18

VK_PAUSE = 19

vk_CapsLock = 20

VK_ESCAPE = 27

vk_Space = 32

vk_PageUp = 33

vk_PageDown = 34

VK_END = 35

VK_HOME = 36

VK_LEFT = 37

vk_Up = 38

vk_Right = 39

vk_Down = 40

vk_PrintScreen = 44

vk_Insert = 45

vk_Delete = 46

vk_0 = 48

vk_1 = 49

vk_2 = 50

vk_3 = 51

vk_4 = 52

vk_5 = 53

vk_6 = 54

vk_7 = 55

vk_8 = 56

vk_9 = 57

VK_A = 65

vk_B = 66

vk_C = 67

vk_D = 68

vk_E = 69

VK_F = 70

vk_G = 71

vk_H = 72

vk_I = 73

vk_J = 74

vk_K = 75

vk_L = 76

vk_M = 77

vk_N = 78

vk_O = 79

vk_Q = 80

vk_O = 79 vk_Q = 80 vk_O = 79 vk_Q = 80 81

vk_R = 82

vk_S = 83

vk_T = 84

vk_U = 85

vk_V = 86

vk_W = 87

vk_X = 88

vk_Y = 89

vk_

vk_LWin = 91 *

vk_RWin = 92 *

vk_Apps = 93 *

vk_NumPad0 = 96

vk_NumPad1 = 97

vk_NumPad2 = 98

vk_NumPad3 = 99

vk_NumPad4 = 100

vk_NumPad5 = 101

vk_NumPad6 = 102

vk_NumPad7 = 103

vk_NumPad8 =

104k

vk_Multiply = 106

vk_Add = 107

vk_Subtract = 109

vk_Decimal = 110

vk_Divide = 111

VK_F1 = 112

VK_F2 = 113

VK_F3 = 114

VK_F4 = 115

VK_F5 = 116

VK_F6 = 117

VK_F7 = 118

VK_F8 = 119

VK_F9 = 120

VK_F10 = 121

VK_F11 = 122

VK_F12 = 123

vk_F13 = 124

VK_F16 = 125

VK_F16 = 125

VK_F15

vk_NumLock = 144

vk_ScrollLock = 145

vk_LShift = 160 **

vk_RShift = 161 **

vk_LControl = 162 **

vk_RControl = 163 **

vk_LAlt = 164 **

vk_RAlt = 165 **

vk_Semi=

8kP

18KS

18KS 18KP 内核 vk_Semi 18KS 18 内核 vk_Semi18KS 188 vk_ScoreP = 188

vk_ScoreP 190

vk_Slash = 191

vk_BackSlash = 220

vk_RightBrace = 221

vk_LeftBrace = 219

vk_Apostrophe = 222

* 仅适用于95 / NT4。

** 仅适用于2000 / XP / Vista。

(M) 仅适用于Macintosh。

TShiftState 类型，来自Shift参数

ssShift：按住 Shift 键。

ssAlt：按住 Alt 键。

ssCtrl：按住 Ctrl 键。

ssLeft：按住鼠标左键。

ssRight：按住鼠标右键。

ssMiddle：按住鼠标中键。

ssDouble：鼠标被双击。