如下:edit1只可输入数字和字母及退格键
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','a'..'z',#8]) then
begin
key:=#0;
MessageBeep(1);
end;
end;但如果我需要支持复制和粘贴,于是我改为
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','a'..'z',#8,#17]) then
begin
key:=#0;
MessageBeep(1);
end;
end;
#17是Ctrl的键盘码,可是还是不能按Ctrl+c或Ctrl+v
请问该如何解决.谢谢!
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','a'..'z',#8]) then
begin
key:=#0;
MessageBeep(1);
end;
end;但如果我需要支持复制和粘贴,于是我改为
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','a'..'z',#8,#17]) then
begin
key:=#0;
MessageBeep(1);
end;
end;
#17是Ctrl的键盘码,可是还是不能按Ctrl+c或Ctrl+v
请问该如何解决.谢谢!
解决方案 »
- DBGridEh footer 赋值时间好慢,,求解决
- 读数据库不完整只有20个字符?是控件问题还是?
- 问个delphi自带的quickrep控件控制打印的问题,急用!
- 在线等. 已安装好的控件,但安装程序丢失,有办法从DELPHI5中在生成控件的安装包吗?
- 我的程序是MDI的,有些窗口是运行时创建的.现在用了XPMAN这个控件后,发现如下错误:
- 怪怪的问题
- 大虾请进:shell编程问题!!
- 求救:如何设计多用户登录程序?
- ado 打包到呀底需要什么,我用WISE9 打包,怎么总是找不到数据库呀,好急
- SQL高手请回答
- 请问哪位有清华的《Delphi与RS-232串行通信控制》下载啊?
- 对象模型小札记
1)你把代码写道KEYDOWN里试试。
2)用第三方控件,比如RAIZE.其实DELPHI自带了一个数字输入控件,好像是在SAMPLE页面里面,你自己可以找找。
不过1 代码在keydown中不能用.
2.我除了数字,还要输入字符,所以你所的sample中的那个不适用.
begin
if not (key in ['0'..'9','a'..'z',#8,#3,#22]) then
begin
key:=#0;
MessageBeep(1);
end;
end;