在edit中有选择的输入

转载于 2005-04-16 22:36:00 发布 · 1k 阅读

文章标签：

#delete

delphi收藏专栏收录该内容

1 篇文章

订阅专栏

博客给出了三段代码，用于限制输入字符。第一段代码限制密码只能输入数字；第二段代码对输入控件的可接受字符进行限制，如数字、小数点、负号等，并对负号和小数点的位置做了规定；第三段代码同样限制输入为数字和删除键相关字符。

if not(key in['0'..'9',#8]) then
   begin
     key:=#0;
     messagebeep(1);
     showmessage('密码只能为数字' )
   end;
******************************************
e:= (Sender as TEdit); //需要限制输入的控件可共享这段代码
if not(key in [#48..#57,'.','-',#8]) //可接受的字符
or(key='-')and(e.SelStart>0) //负号只能在串首
or(key='.')and(pos( '.',e.Text)>0)then key:=#0; //只接受一个小数点
***************************************
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if not (key in ['0'..'9',Chr(VK_BACK),Chr(VK_Delete)]) then
      begin
        key:=#0;
        Messagebeep(0);
      end;
    end;