delphi - T编辑: auto complete and limit minimum number

Question

这是按键事件:

procedure TForm3.Edt1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in [#8, '0' .. '9']) then
  begin
    memo1.Clear;
    Print('Numbers only !');
    Key := #0;
  end;
  edt1.MaxLength := 12;
end;

故事是这样的:

我想自动完成我的 TEdit。每次我在 TEdit 上输入时，它都会自动完成我的(任何)数字。只需在第一个数字后用“0”填充它，它会在输入第二个数字时被替换...并停止在最大长度(设置为 12)。

procedure TForm3.btn1Click(Sender: TObject);
var key : Char;
begin
if Trim(edt1.Text) = '' then
  begin
    memo1.Clear;
    Print('Please input your number');
    Exit
  end;
// Text number CAN NOT LESS than 12 digits. I think it's better with auto-complete.
end;

Answer 1

A TMaskEdit用 EditMask 000000000000;0;0 将完全按照您的意愿执行，您无需编写代码和处理诸如 Del、Backspace、或 LeftArrowRightArrow 键。