本文整理自网络，侵删。
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if application.MessageBox('真的要退出本系统吗？','提示',mb_yesno)=idno then
begin
canclose := false;
end;
end;
ESC 退出程序(delphi)
procedure TForm1.FormCreate(Sender: TObject);
begin
keypreview:=true; //可以接收键盘操作
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
application.terminate; //关闭程序
end;
#13 回车
＃10换行
#20为空格
键盘常用ASCII码(delphi)
键盘常用ASCII码(delphi) ESC键 VK_ESCAPE (27)
回车键： VK_RETURN (13)
TAB键： VK_TAB (9)
Caps Lock键： VK_CAPITAL (20)
Shift键： VK_SHIFT ($10) Ctrl键： VK_CONTROL (17) Alt键： VK_MENU (18) 空格键： VK_SPACE ($20/32) 退格键： VK_BACK (8) 左徽标键： VK_LWIN (91) 右徽标键： VK_LWIN (92) 鼠标右键快捷键：VK_APPS (93) Insert键： VK_INSERT (45) Home键： VK_HOME (36) Page Up： VK_PRIOR (33) PageDown： VK_NEXT (34) End键： VK_END (35) Delete键： VK_DELETE (46) 方向键(←)： VK_LEFT (37) 方向键(↑)： VK_UP (38) 方向键(→)： VK_RIGHT (39) 方向键(↓)： VK_DOWN (40) F1键： VK_F1 (112) F2键： VK_F2 (113) F3键： VK_F3 (114) F4键： VK_F4 (115) F5键： VK_F5 (116) F6键： VK_F6 (117) F7键： VK_F7 (118) F8键： VK_F8 (119) F9键： VK_F9 (120) F10键： VK_F10 (121) F11键： VK_F11 (122) F12键： VK_F12 (123) Num Lock键： VK_NUMLOCK (144) 小键盘0： VK_NUMPAD0 (96) 小键盘1： VK_NUMPAD0 (97) 小键盘2： VK_NUMPAD0 (98) 小键盘3： VK_NUMPAD0 (99) 小键盘4： VK_NUMPAD0 (100) 小键盘5： VK_NUMPAD0 (101) 小键盘6： VK_NUMPAD0 (102) 小键盘7： VK_NUMPAD0 (103) 小键盘8： VK_NUMPAD0 (104) 小键盘9： VK_NUMPAD0 (105) 小键盘.： VK_DECIMAL (110) 小键盘*： VK_MULTIPLY (106) 小键盘+： VK_MULTIPLY (107) 小键盘-： VK_SUBTRACT (109) 小键盘/： VK_DIVIDE (111) Pause Break键： VK_PAUSE (19) Scroll Lock键： VK_SCROLL (145)
//－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
VK_LBUTTON = 1;
VK_RBUTTON = 2;
VK_CANCEL = 3;
VK_MBUTTON = 4;
VK_BACK = 8;
VK_TAB = 9;
VK_CLEAR = 12;
VK_RETURN = 13;
VK_SHIFT = $10;
VK_CONTROL = 17;
VK_MENU = 18;
VK_PAUSE = 19;
VK_CAPITAL = 20;
VK_ESCAPE = 27;
VK_SPACE = $20;
VK_PRIOR = 33;
VK_NEXT = 34;
VK_END = 35;
VK_HOME = 36;
VK_LEFT = 37;
VK_UP = 38;
VK_RIGHT = 39;
VK_DOWN = 40;
VK_SELECT = 41;
VK_PRINT = 42;
VK_EXECUTE = 43;
VK_SNAPSHOT = 44;
VK_INSERT = 45;
VK_DELETE = 46;
VK_HELP = 47;
{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
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 = 104;
VK_NUMPAD9 = 105;
VK_MULTIPLY = 106;
VK_ADD = 107;
VK_SEPARATOR = 108;
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_F14 = 125;
VK_F15 = 126;
VK_F16 = 127;
VK_F17 = 128;
VK_F18 = 129;
VK_F19 = 130;
VK_F20 = 131;
VK_F21 = 132;
VK_F22 = 133;
VK_F23 = 134;
VK_F24 = 135;
VK_NUMLOCK = 144;
VK_LSHIFT = 160;
VK_RSHIFT = 161;
VK_LCONTROL = 162;
VK_RCONTROL = 163;
VK_LMENU = 164;
VK_RMENU = 165;
VK_PROCESSKEY = 229;
VK_ATTN = 246;
VK_CRSEL = 247;
VK_EXSEL = 248;
VK_EREOF = 249;
VK_PLAY = 250;
VK_ZOOM = 251;
VK_NONAME = 252;
VK_PA1 = 253;
VK_OEM_CLEAR = 254; 相关阅读 >>
Delphi 检查字符串是不是 包含 中文和获取中文字符个数
更多相关阅读请进入《Delphi》频道 >>
