procedure tfrmmain.edtkeypressinput(sender: tobject;
var key: char);
begin
if not (key in ['0'..'9', '.', #08]) then
begin
key := #0;
end;
end;
vk_lbutton = $01;
vk_rbutton = $02;
vk_cancel = $03;
vk_mbutton = $04;
vk_back = $08;
vk_tab = $09;
vk_clear = $0c;
vk_return = $0d;
vk_shift = $10;
vk_control = $11;
vk_menu = $12;
vk_pause = $13;
vk_capital = $14;
vk_escape = $1b;
vk_space = $20;
vk_prior = $21;
vk_next = $22;
vk_end = $23;
vk_home = $24;
vk_left = $25;
vk_up = $26;
vk_right = $27;
vk_down = $28;
vk_select = $29;
vk_print = $2a;
vk_execute = $2b;
vk_snapshot = $2c;
vk_copy = $2c not used by keyboards }
vk_insert = $2d;
vk_delete = $2e;
vk_help = $2f;
vk_a thru vk_z are the same as their ascii equivalents: 'a ' thru 'z ' }
vk_0 thru vk_9 are the same as their ascii equivalents: '0 ' thru '9 ' }
vk_numpad0 = $60;
vk_numpad1 = $61;
vk_numpad2 = $62;
vk_numpad3 = $63;
vk_numpad4 = $64;
vk_numpad5 = $65;
vk_numpad6 = $66;
vk_numpad7 = $67;
vk_numpad8 = $68;
vk_numpad9 = $69;
vk_multiply = $6a;
vk_add = $6b;
vk_separator = $6c;
vk_subtract = $6d;
vk_decimal = $6e;
vk_divide = $6f;
vk_f1 = $70;
vk_f2 = $71;
vk_f3 = $72;
vk_f4 = $73;
vk_f5 = $74;
vk_f6 = $75;
vk_f7 = $76;
vk_f8 = $77;
vk_f9 = $78;
vk_f10 = $79;
vk_f11 = $7a;
vk_f12 = $7b;
vk_f13 = $7c;
vk_f14 = $7d;
vk_f15 = $7e;
vk_f16 = $7f;
vk_f17 = $80;
vk_f18 = $81;
vk_f19 = $82;
vk_f20 = $83;
vk_f21 = $84;
vk_f22 = $85;
vk_f23 = $86;
vk_f24 = $87;
vk_numlock = $90;
vk_scroll = $91;
鍵盤各鍵對應的鍵值
描述 0x1 滑鼠左鍵 0x2 滑鼠右鍵 0x3 cancel 鍵 0x4 滑鼠中鍵 0x8 backspace 鍵 0x9 tab 鍵 0xc clear 鍵 0xd enter 鍵 0x10 shift 鍵 0x11 ctrl 鍵 0x12 menu 鍵 0x13 pause 鍵 0x14 ca...
鍵盤各鍵對應的鍵值
描述 r 0x1 滑鼠左鍵 r 0x2 滑鼠右鍵 r 0x3 cancel 鍵 r 0x4 滑鼠中鍵 r 0x8 backspace 鍵 r 0x9 tab 鍵 r 0xc clear 鍵 r 0xd enter 鍵 r 0x10 shift 鍵 r 0x11 ctrl 鍵 r 0x12 menu ...
與鍵盤上各鍵對應的鍵值
與鍵盤上各鍵對應的鍵值 在軟體開發的過程中我們經常與鍵盤打交道，以下是我查msdn 所得希望對各位有幫助。可在 中的任何地方用下列值代替鍵盤上的鍵 值 描述 0x1 滑鼠左鍵 0x2 滑鼠右鍵 0x3 cancel 鍵 0x4 滑鼠中鍵 0x8 backspace 鍵 0x9 tab 鍵 0xc c...