procedure TfmBaseBill.BillStrKeyPress(Sender: TObject; var Key: Char);
begin
if Key in [#39, '`', '[', ']'] then
Key := #0;
end;
procedure ControlInputInt(var Key: Char; bPlus: Boolean=True);
begin
if bPlus then
begin
if not (Key in ['0'..'9', #13, #8]) then
Key := #0;
end else
begin
if not (Key in ['0'..'9', '-', #13, #8]) then
Key := #0;
end;
end;
if key = #13 then
begin
key := #0;
selectnext(ActiveControl, true, true);
end;
ControlInputInt(Key, FIsPlus);
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。