键盘击键的问题。(100分)

Z

zhzdl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #1

在OnKeyPress里只有输入了英文才会响应，要怎样才能输入一个汉字也能响应，比如ICQ我们
输入字符就会发出声音，并且输入几个字符就响几次，比如输入"中"响一次，如果输入词组"
中华人民共和国"要响7次怎么实现。

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #2

ord(key)>128

 

C

coolcat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #3

ONCHANGE中判断呀..

 

Z

zhzdl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #4

To [blue]coolcat[/blue]
Onchange里同有很多种可能，再说如果每次输入一个汉字还行，但如果输入的是词组就只有
一次响应了，不过我发现用万能五笔能行，用五笔86或是拼音就不行了。

 

I

iamfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #5

也许可以这样。。。
还是ONCHANGE里，得到输入的字符长度，如果比以前的长度有增加的话，加多少就响多少
声。。。
嗬嗬^_^[]

 

徐

徐凤华

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-26

• #6

如果你要区分用户所输入的字符是中文字符和英文字符的话，比如用户每输入一个中文
或英文都要响一次，可以在OnChange中实现。代码以下：
procedure Example(Text: String);
var
I: Integer;
TempW: WideString;
begin
//此处用一变量Before用于存储上一次用户输入的文本的中文或英文字符的个数。
TempW := Text;
I := Length(TempW);
if I > Before then Beep(I - Before);
end;

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #7

多人接受答案了。