这是按键事件:
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;
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句