大家好!
我的窗体上有一个TEdit 控件,当程序运行时,我希望只能在TEdit控件里输入0--9之间的数据,其余的字符都不能输入。请各位高手指点一下我应该怎么做?????????????????拜托拜托!!!!在线等待!!!!
我的窗体上有一个TEdit 控件,当程序运行时,我希望只能在TEdit控件里输入0--9之间的数据,其余的字符都不能输入。请各位高手指点一下我应该怎么做?????????????????拜托拜托!!!!在线等待!!!!
解决方案 »
- 请教:如何让label控件倾斜?大家有何好办法?
- 操作另一个Form的对象时, 内存溢出. 请教如何解决
- 请教三层不让服务器弹出窗口的办法
- 实现MS Access,oracle两种数据库数据的转发
- 过年了,祝大家新年愉快!!
- 我用adoquery+tDataSource+tdbgrid用sql语句删除一条记录后,想让记录指针定位到前一条记录怎么做
- *********招聘程序员*********
- 咨询病房管理系统
- 请问原生(NATIVE)控件指的是什么控件??
- 急,怎样改变dbgrid中某个单元的数据的颜色,请朋友指点。
- 各位大俠,小弟遇到的怪问题!
- 怎样判断Memo的内容为空?就是Memo里面一行内容也没有,
begin
if not (key in ['0'..'9']) then
key := #0;
end;
procedure TfrmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then
key := #0;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
IF Not (Key In ['0'..'9']) Then
key:=#0;
end;
楼主是不是想在一个edit里面只能输入数字啊?如果是这样,仅考虑你的那个条件是不够的
比如:非小数不能以0开始,是否可以是小数等
begin
IF Not (Key In ['0'..'9',#8]) Then //其中#8是退格键
key:=#0;
end;
SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE) or
ES_NUMBER);
procedure TfrmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then
key := #0;
end;
var Key: Char);
begin
if not (key in ['0'..'9','.',#8]) then
begin
key:=#0;
Messagebeep(0);
end;
end;这是我自己在项目中的,楼主可以拿来用