5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
victor_yang 2004-12-02
- 打赏
- 举报
http://www.playicq.com/dispdocnew.php?id=20437
pressman 2004-12-02
- 打赏
- 举报
SkinEngine是什么哦？哪里能找到？
victor_yang 2004-12-02
- 打赏
- 举报
SkinEngine的SpinEdit有这种功能，就是ValueType，选择Integer型就可以了。
lzy6204 2004-12-02
- 打赏
- 举报
procedure TForm1.spinEdit1KeyPress(Sender: TObject; var Key: Char);
var
i: integer; //得到小数点的个数
begin
i := Length(StringReplace(spinEdit1.Text,'.','&&',[rfReplaceALL]))-Length(spinEdit1.Text);
if (i > 0) and (key = '.') then
Key := #0;
end;
var
i: integer; //得到小数点的个数
begin
i := Length(StringReplace(spinEdit1.Text,'.','&&',[rfReplaceALL]))-Length(spinEdit1.Text);
if (i > 0) and (key = '.') then
Key := #0;
end;
victor_yang 2004-12-02
- 打赏
- 举报
没有，不过可以写进去控件里。
pressman 2004-12-02
- 打赏
- 举报
如果没有也就结帖了！
pressman 2004-12-02
- 打赏
- 举报
有不有属性可以用哦？？兄弟
victor_yang 2004-12-02
- 打赏
- 举报
在KeyPress事件中：
if Key:='.' then
Key:=#0;
if Key:='.' then
Key:=#0;
relive8 2004-12-02
- 打赏
- 举报
在 onkeypress事件中写
if key = '.' then
key := #0;
if key = '.' then
key := #0;
