请教键盘上各各键的代码.(50分)

柱

柱子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #1

如下代码:#46是小数点,那back space键,回车键,空格键等等各是什么代码呢?????
if not (key in ['0'..'9', #46]) then
begin
Key := #0;
showmessage('只能输入数字和小数点!');
end;

 

A

aizhuzhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #2

键盘常量名VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE
/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWN
F1--F12：$70(112)--$7B(123)
A-Z：$41(65)--$5A(90)
0-9：$30(48)--$39(57)

 

M

maikee1978

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #3

http://www.lookuptables.com
最全的

 

柱

柱子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #4

aizhuzhu,,,我想显示成#46类型的,您那是什么类型的啊????学习中......

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #5

onkeydown事件
begin
showmessage(inttostr(key))
end

 

柱

柱子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #6

if not (key in ['0'..'9', #46]) then
begin
Key := #0;
showmessage('只能输入数字和小数点!');
end;

那我想在里面还允许back space 键,怎么加啊???

 

R

redcloud

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #7

key in ['0'..'9', #46，VK_BACK]

 

柱

柱子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #8

redcloud哥们不可以啊.我加了报错啊.
procedure Tzhouhuo.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9', #46]) then //再加一个backspace键值
begin
Key := #0;
showmessage('只能输入数字和小数点!');
end;
end;

 

Z

zgh777

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #9

back space 就是#8

 

Q

qwerty_417

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #10

showmessage(inttostr(key))

 

Q

qwerty_417

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #11

onkeypress

 

柱

柱子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #12

多人接受答案了。