请教大虾们一个问题,在DELPHI窗体上有一个EDIT,当我在这个EDIT中输入结束的时候,需要对输入的字符做一些判断。假如有一个edit1,我在里面输入‘123’,但该EDIT要求输入的结果要大于‘200’,那如何来实现输入结束时的判断。

解决方案 »

  1.   

    procedure TForm1.xxxExit(Sender: TObject);
    beginend;
    OnExit事件
      

  2.   

    procedure TForm1.TxtCountExit(Sender: TObject);
    begin
      if strToInt(TxtCount.Text) <= 200 then
        ShowMessage('输入的结果要大于200')
    end;
      

  3.   

    在Onexit事件里写代码就可以了。
      

  4.   

    Edit控件是在Onexit 事件下可以的.
    像金额数字类的.可以用cxCurrencyEdit. 控件, 更好用.
      

  5.   

    在保存的時候判断,可以事先在keypress中处理只能输入数字