5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
jtx1226 2003-06-03
- 打赏
- 举报
MASKEDIT 的INPUT MASK录这个就可以了
!000000000000000;1;_
!000000000000000;1;_
jianke5555 2003-06-03
- 打赏
- 举报
EditMask :=999999;1;_
bbs791109 2003-06-03
- 打赏
- 举报
Procedure Tform1.Edit1KeyPress(Sender:TObject,var Key:Char);
begin
if (key>#48 or key<57) and (key<>#8) and (key<>#13) then
key:=#0;
end;
begin
if (key>#48 or key<57) and (key<>#8) and (key<>#13) then
key:=#0;
end;
tylchina 2003-06-03
- 打赏
- 举报
错了#8是为了实现退格键有效
tylchina 2003-06-03
- 打赏
- 举报
添加KeyPress事件：
如：
Procedure Tform1.Edit1KeyPress(Sender:TObject,var Key:Char);
begin
if not (key in['0'..'9',#8,#13])then
key:=#0;
end;
//#8及#13是为了保证Tab与Enter有效
如：
Procedure Tform1.Edit1KeyPress(Sender:TObject,var Key:Char);
begin
if not (key in['0'..'9',#8,#13])then
key:=#0;
end;
//#8及#13是为了保证Tab与Enter有效
jacky_shen 2003-06-03
- 打赏
- 举报
Edit 中只输入数字
SetWindowLong(Edit1.Handle, GWL_STYLE,GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
SetWindowLong(Edit1.Handle, GWL_STYLE,GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
dde2001 2003-06-03
- 打赏
- 举报
有人吗？
