5,392
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
coolbaby 2001-08-23
- 打赏
- 举报
up
softcool 2001-08-23
- 打赏
- 举报
onkeypress
if key=char(8) then key := #0;
if key=char(8) then key := #0;
zjwpanhp 2001-08-23
- 打赏
- 举报
没有用,请再详细一些
kuangning 2001-08-23
- 打赏
- 举报
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=char(9) then key := char(0);//屏蔽0
end;
begin
if key=char(9) then key := char(0);//屏蔽0
end;
cqiu2000 2001-08-23
- 打赏
- 举报
//屏蔽退格键
onkeypress
if key=char(8) then
key:=char(0);
onkeypress
if key=char(8) then
key:=char(0);
ZhuJunfeng 2001-08-23
- 打赏
- 举报
keypreview:=true
tikkypeng 2001-08-23
- 打赏
- 举报
我只知道可以在KeyDown事件里判断如果是要屏蔽的键则可以使之无效
