高手们帮个忙。锁定键盘的问题。 屏闭所有的按键,除的数字区外。这个要怎么做呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9',Char(VK_RETURN),Char(VK_Back)]) then Key := #0;end; andrew223(暴风雪) ....晕死!!~~ 人家问的不是控件! 在delphi中package是否能够调用其他package中的类呢? 征求解决方案 delphi新手提问 情人节,放分!!! 如何实再Ctrl+A功能 一个computer系的大学生的困惑! 那儿可以下载DELPHI6的升级2??? MIDAS中,更新数据库错误的问题!? 请高手解答DELPHI2007+DBEXPRESS中读取字符字段值问题 哪里还有赵亦平的NeoForm 高手在哪里啊,一个比较复杂的问题啊。 关于汉字的首字母查询, 所有汉字库的问题(包括一,二级汉子库),帮个忙,好人有好报啊!给20分
begin
if not (Key in ['0'..'9',Char(VK_RETURN),Char(VK_Back)]) then
Key := #0;
end;