diff --git a/components/lazcontrols/spinex.inc b/components/lazcontrols/spinex.inc index 73bd0a228f..c65316ae9d 100644 --- a/components/lazcontrols/spinex.inc +++ b/components/lazcontrols/spinex.inc @@ -204,6 +204,9 @@ end; procedure TSpinEditExBase.InitializeWnd; begin inherited InitializeWnd; + // at this point Text will be empty, which in UpdateControl will invoke the NullValueBehaviour + // so make sure that Text will represent FValue now + Text := ValueToStr(FValue); UpdateControl; end;