请问怎样在Edit中，只能输入“0.000”格式的数字 当该Edit获得焦点的时候，假如按下5，然后离开，Edit就是5.000，假如按下55，然后离开，Edit就是55.000
Z zdan Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-17 #1 请问怎样在Edit中，只能输入“0.000”格式的数字 当该Edit获得焦点的时候，假如按下5，然后离开，Edit就是5.000，假如按下55，然后离开，Edit就是55.000
Q qince Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-17 #2 可以用控件实现，1stClass中有控件，可以实现，记不太清，像是叫CurrencyEdit
F fei_l Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-17 #3 在OnExit事件中写： （只给出个思路，详细自己完善） var iLen:integer; begin iLen:=length(trim(edit1.Text)); if pos('.',trim(edit1.Text))=0 then begin edit1.Text:=edit1.Text+'.000'; exit; end; if iLen-pos('.',trim(edit1.Text))<4 then edit1.Text:=edit1.Text+'000'; end;
在OnExit事件中写： （只给出个思路，详细自己完善） var iLen:integer; begin iLen:=length(trim(edit1.Text)); if pos('.',trim(edit1.Text))=0 then begin edit1.Text:=edit1.Text+'.000'; exit; end; if iLen-pos('.',trim(edit1.Text))<4 then edit1.Text:=edit1.Text+'000'; end;
W windlin Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-18 #5 请用这个吧： Edit1.Text:=FormatFloat('0.000',StrToFloat(Edit1.Text));
Q qaz2003 Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-19 #7 procedure TForm1.Edit1Exit(Sender: TObject); begin Edit1.Text:=FormatFloat('0.000',StrToFloat(Edit1.Text)); end;
procedure TForm1.Edit1Exit(Sender: TObject); begin Edit1.Text:=FormatFloat('0.000',StrToFloat(Edit1.Text)); end;
S Sea008 Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-19 #8 procedure TForm1.Edit1Change(Sender: TObject); begin Edit1.Text:=FormatFloat('0.000',StrToFloat(Edit1.Text)); end;
procedure TForm1.Edit1Change(Sender: TObject); begin Edit1.Text:=FormatFloat('0.000',StrToFloat(Edit1.Text)); end;
