很初级的问题,如何限制TEDIT和TCOMBOBOX只能输入指定的值?

Question

很初级的问题,如何限制TEDIT和TCOMBOBOX只能输入指定的值?如只能输入日期、数值、或字符等。

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   case Key of
     '0'..'9':   ;      //对数字键响应
              #8:   ;     //对退格键响应'.':      ;     //小数点
        else
        begin
        key:=#8;end;
   end;
end;

Answer 2

Procedure TForm1.Edit1KeyPress(Sender:Tobject; var Key:Char);
begin
  if not (Key in ['0'..'9','.',#8]) then
    Key:=#0;
end;

Answer 3

在OnKeyPress事件中检查Key参数的值，如果不是合法字符就设其为#0

Answer 4

在keypress,keydown,keyup事件中写代码