急用：如何限制Edit中只能输入汉字？ 急用：如何限制Edit中只能输入汉字？ 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 在edit的onkeypress中加入 (if bytetype(key,1)<>mbleadbyte) and (key<>#8) then key:=#0 楼上的可以防止拷贝非汉字的内容到edit中粘贴吗？ 有点麻烦,主要可以通过asii码来进行判断 但是如果要列举所有的，好象有点麻烦哦^^不过你可以到大富翁论坛的离线数据库中查找一下,那里肯定有的 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not ((ord(key) > 128) or (key = #8)) then begin key:=#0; end;end; 可以给edit赋一个空右键菜单，防止右键菜单拷贝粘贴，快捷键上面的代码已经屏蔽掉了，这样就ok了 这个过程需要注意什么? 请问删除数据库记录时,为什么不能返回影响的记录数 三層結構查詢，網格接收不到新數據 Excel问题：关于生成下拉列表的做法 如何拖动 listview 的行到想要的位置？？？？？？？？？？？急！！！！！！ 不好意思在加80正好 本人在广州,想知道在广东里面有些什么美丽的古城小镇,请把名字和方位和车程奉告 怎样使dbedit显示dbgrid中的上一条，下一条，及最后，最前的记录 简单：如何在keydown事件中判断按下的是回车键！ 急！用OLE连接MS WORD，怎样捕获换页事件？？先答对得全部分！！ 关于换行的问题 关于面向对象的数据库程序设计，很头疼
(if bytetype(key,1)<>mbleadbyte) and (key<>#8) then
key:=#0
但是如果要列举所有的，好象有点麻烦哦^^
不过你可以到大富翁论坛的离线数据库中查找一下,
那里肯定有的
begin
if not ((ord(key) > 128) or (key = #8)) then
begin
key:=#0;
end;
end;