按键检验，只响应小键盘数字键，屏蔽其它按键!(50分)

D

DaChu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #1

Form1有一个Edit控件及n个RichEdit,n个memo<br>但是不管焦点在那个控件上，只响应小键盘的数字键<br>并将键值显示在Edit.Text,对其它按键不做响应，<br><br>并重说明：<br>只在这个Form或窗口被激活的情况下(也就是说设为当前窗口)，<br>不管焦点在哪个控件中？即做以上处理，

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #2

将其他的键过滤的代码<br>procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);<br>begin<br>&nbsp; if not (key in ['0'..'9', #8, #13]) then<br>&nbsp; begin<br>&nbsp; &nbsp; key := #0; <br>&nbsp; end;<br>end; <br>

 

D

DaChu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #3

关健是焦点不一定在Edit上呀，<br>不过我现在让所有控件的onkeydown事件都指向一处了<br><br>完成任务先

 

D

DaChu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #4

接受答案了.

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #5

[][]