如何 RzNumericEdit 控件 显示货币的格式？？？？？？？？？？

Question

如何 RzNumericEdit  控件 显示货币的格式？？？？？？？？？？例如： 下图是 raize 控件的例子，用RzNumericEdit  控件 进行编辑:http://www.ttx.com.cn/bbs/v0qdu_2004-7/2004-12/2004122822239980.jpg当编辑完后，焦点离开RzNumericEdit  控件 后，RzNumericEdit  控件 的内容会显示成货币格式：http://www.ttx.com.cn/bbs/v0qdu_2004-7/2004-12/2004122822248766.jpg------------------------------------------------请问是如何设置RzNumericEdit  控件 ，使焦点离开RzNumericEdit  控件 后，RzNumericEdit  控件 的内容会显示成货币格式

Answer 1

修改其DisplayFormat为:￥,0.00;(,0.00)
      IntegerOnly  为:False
看看是不是你要的效果?

Answer 2

uses strutils;procedure TForm1.Edit1Exit(Sender: TObject);
begin
edit1.Text:=formatfloat('$#,##0.00',strtofloat(edit1.Text));
end;procedure TForm1.Edit1Enter(Sender: TObject);
begin
edit1.Text:=rightstr(edit1.Text,length(edit1.Text)-1);
end;

Answer 3

procedure TForm1.Edit1Enter(Sender: TObject);
begin
edit1.Text:=stringreplace(edit1.Text,',','',[rfReplaceAll]);
edit1.Text:=rightstr(edit1.text,length(edit1.Text)-1);
end;//这二段最好改为上面吧！试试看....