DELPHI 技巧 - 如何限制编辑框的输入

  在Delphi中使用编辑框时,有时需要限制输入它的字符类型,如只接收数字或只接收字母。我们可以在TEdit组件的OnKeyPress事件中对输入进行处理,以限制对编辑框的输入。

  限制为只接收数字的例程如下:

   procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

   begin

   if not(key in['0'..'9',#8])then

    begin

     key:=#0;

     MessageBeep(1);

    end;

   end;

  程序通过TEdit组件的OnKeyPress事件,判断按键是否为0至9这10个数字键,或者是BackSpace键,如果不是则将该输入设置为空(key:=#0),将其屏蔽掉;如果是则接收字符输入。这里有一点需要说明的是,#8对应BackSpace键,我们不应将它也屏蔽掉,否则不能使用退格(BackSpace)键删除错误的数字输入。

  同样,如果要限制编辑框只接收字母(不管大小写)输入,程序如下:

   procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

   begin

   if not(key in['a'..'Z',#8])then

    begin

     key:=#0;

     MessageBeep(1);

    end;

   end;

 

Copyright 2000-2015 Gogusoft Software Co.,Ltd
 
 
长春市勾股软件有限责任公司
销售电话:043188833276(长春) 0755-32978958 (深圳)
电子信箱:销售sales@gogusoft.com 技术 tech@gogusoft.com 招聘 job@gogusoft.com
公司地址:长春市绿园区长白公路7777号 邮编:130012