一个关于edit控件的问题，在线等！

Question

一个edit控件，使之默认为.00，以方便操作人员输入，应如何解决？

Answer 1

在属性面板的text属性中输入.00

Answer 2

在table afterscroll中加入.edit.text = '.00'

Answer 3

我不是只是显示出来的问题，而是象maskedit那样，固定的格式，后面加.00，无论怎么输都默认为.00

Answer 4

那就在OnChange事件里写吧：
if (Edit1.Text<>'') and (Pos('.00',Edit1.Text)=-1) then
  Edit1.Text:=Edit1.Text+'.00';

Answer 5

那就在OnChange事件里写吧：
if (Edit1.Text<>'') and (Pos('.00',Edit1.Text)=-1) then
  Edit1.Text:=Edit1.Text+'.00';
  
 支持！！！

Answer 6

edit1.text := fomartfloat('0.00',edit1.text);
至于在什么事件下写,你自己看着办