| hchdown
39804
|
2010/4/7 9:46:39 |
| xiex hen b cuo l |
| hchdown
39803
|
2010/4/7 9:44:45 |
| 很不错，谢谢了 |
| zbzb
39767
|
2010/3/28 23:26:25 |
TO: swgame
你这样的话，一些非常规字符也会被接受，比如tab键。 |
| swgame
39764
|
2010/3/28 20:18:46 |
谢谢。
把TRIM去掉就会有空格了。
APass:=APass+(InBuf.Event.KeyEvent.AsciiChar);
if Length((InBuf.Event.KeyEvent.AsciiChar))>0 then Write(PwdChar); |
| zbzb
39760
|
2010/3/27 11:31:32 |
发现不会接受空格符，按如下修改一下即可接受空格：
var
AChr: Char;
……
把原来的这两行：
APass:=APass+Trim(InBuf.Event.KeyEvent.AsciiChar);
if Length(Trim(InBuf.Event.KeyEvent.AsciiChar))>0 then Write(PwdChar);
改为：
AChr:=InBuf.Event.KeyEvent.AsciiChar;
if (AChr=' ')or(Trim(AChr)<>'') then
begin
APass:=APass+AChr;
Write(PwdChar);
end;
即可。 |
