procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (key in ['0'..'9','-',#8]) then key:= #0; if (key='0') and ((Edit1.Text='') or (Edit1.Text='-')) then key:= #0; if (key='-') and (Edit1.Text<>'') then key:= #0;end;
本文共 309 字，大约阅读时间需要 1 分钟。
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (key in ['0'..'9','-',#8]) then key:= #0; if (key='0') and ((Edit1.Text='') or (Edit1.Text='-')) then key:= #0; if (key='-') and (Edit1.Text<>'') then key:= #0;end;
转载于:https://www.cnblogs.com/bytutu/archive/2012/02/07/2340926.html