CnPack Forum

#1 修改TCnSpinEdit
[b]原代码:[/b]
function TCnSpinEdit.GetValue: LongInt;
begin
Result:=StrToIntDef(Text,FMinValue);
end;
[b]错误情况:[/b]
若Text存在小数点的情况,则结果取FMinValue

[b]替换代码:
[/b]function TCnSpinEdit.GetValue: LongInt;
var
E:Integer;
begin
Val(Text, Result, E);
if (E=1) then Result:=FMinValue;
end;
[b]修改后情况:
[/b]如果Text中存在小数点(或其他字符),则按最前面的整数取值
至于最大最小值的处理,则由Check ..

#1 >>Next Page

Forum:CnVCL 组件包
Thread:修改TCnSpinEdit
Next Thread:请问：图像处理包能处理 ...

Home
Login

Powered by Discuz!