maskedit输入框中怎样捕获输入不全的输入?

Question

比如要输入4个字符的输入框,现在我只输入了2个字符,如果我再点击其他的地方的时候会出现错误的提示框,怎样才可以判断没有输入完全呢?

Answer 1

用MaskEdit还不如自己用Edit实现方便
MaskEdit太烂了

Answer 2

但是edit好象不能设置指定格式的输入啊

Answer 3

可以自己写代码处理
比如只输入数字
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Pos(
  if not (Key in [$30..$39, 8]) then
  begin
    Key := 0;
  end;
end;