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;