#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
Global $iDecimal = 3
GUICreate("Input Filter", 300, 30, -1, -1)
Global $inTest = GUICtrlCreateInput("", 5, 5, 290)
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
GUISetState(@SW_SHOW)
While GUIGetMsg() <> $GUI_EVENT_CLOSE
WEnd
Func MY_WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
Local $iIDFrom = BitAND($wParam, 0xFFFF);LoWord
Local $iCode = BitShift($wParam, 16) ;HiWord
If $iIDFrom = $inTest And $iCode = $EN_CHANGE Then
$Read_Input = GUICtrlRead($inTest)
If StringRegExp($Read_Input, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_Input = StringRegExpReplace($Read_Input, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
$Point1 = StringInStr($Read_Input, ".", 0)
$Point2 = StringInStr($Read_Input, ".", 0, 2)
If $Point2 <> 0 Then $Read_Input = StringLeft($Read_Input, $Point2 - 1)
If $Point1 <> 0 Then $Read_Input = StringLeft($Read_Input, $Point1 + $iDecimal)
GUICtrlSetData($inTest, $Read_Input)
EndIf
EndFunc;==>_WM_COMMAND
