procedure TForm1.Edit1Change(Sender: TObject); begin if Edit1.Text = '123.5' then begin Edit2.SetFocus; end else begin //缺异常处理 Edit1.Text := FormatFloat('000.0', string.ToDouble(Edit1.Text)); end; end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin if Pos('.',Edit1.Text)>0 then begin Edit1.Text := FormatFloat('000.0',strToFloat(Edit1.Text)); Edit2.SetFocus; end else begin //缺异常处理 Edit1.Text := FormatFloat('000.0',strToFloat(Edit1.Text)); end; end; end;