ExCtrls: fix not calling OnKeyPress in TCustomFloatSISpinEditEx.EditKeyPress.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7623 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/exctrls/source/exeditctrls.pas

@@ -537,7 +537,7 @@ end;
 
 procedure TCustomFloatSISpinEditEx.EditKeyPress(var Key: char);
 begin
-  //allow anything for the moment
+  if Assigned(OnKeyPress) then OnKeyPress(Self, Key);
 end;
 
 function TCustomFloatSISpinEditEx.TextIsNumber(const S: String; out ANumber: Double): Boolean;