关于TMaskEdit.EditMask属性设置问题(20分)

C

chinahx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-17

• #1

我的TMaskEdit控件允许用户输入费用，我设置 TMaskEdit.EditMask := !0.00;1;_
但是，我想要的是类似这样的数： 5.123 、66.12，7777.333
像上面的 TMaskEdit.EditMask := !0.00;1;_
只能输入： 5.12 、6.33 等等而不能输入 55.12，555.123

我应该怎么样设置？请帮忙，谢谢。

 

C

chinahx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-17

• #2

为什么没有人回答我的问题？
是太简单了吗？

 

S

successlikun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-17

• #3

TMaskEdit早就经过证明不好使了。定义一个function
function TForm1.LimitSalaryKeyIn(Var Key:Char):Char;
begin
if Not (Key In ['0'..'9',#8,#46,'.']) then
begin
key:=#0;
end;
Result:=key;
end;
在TEdit的KeyPress事件响应：
procedure TForm1.PlanNumberKeyPress(Sender: TObject;
var Key: Char);
begin
Key:=LimitSalaryKeyIn(Key);
end;

 

W

wobuzhidao_yes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #4

if not (key in ['0'..'9', #8 ,'.']) then
key := #0;
if (key = '.') and (pos('.',Sender.text) > 0) then
key := #0;
if (key = '.') and (length(Sender.text) = 0) then
key := #0;

 

J

jopi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #5

TMaskEdit很臭，还是用function实现吧。

 

C

chinahx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #6

谢谢

 

W

wellknow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #7

好贴,收藏,不过不知如何收藏.

 

C

chinahx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #8

多人接受答案了。