控制负数输入.txt

procedure TMakePriceForm.DbgKeyPressProc(var okey: Char);
var
  vIsCancel: Boolean;
  vKeShiBM, vKeShiMC: string;
  vVariant: Variant;
begin //20090216 wqs 控制负数输入
   if not (oKey in ['0'..'9', #8, #13]) then
  begin
    oKey := #0;
  end;