文字入力の抑止について

[onyo]

また、tf2をmax-charsの変更だけで同じ挙動をさせたいのですがこの場合はNumericTextFieldのような
拡張クラスを作らなければならないのでしょうか？

クラスを作らずに、同じ定義を部品化したいのであれば
Arguments と splice を使用すればこんな感じでできます。

Code:

{import * from CURL.LANGUAGE.REGEXP}
{let max-chars:int = 5}
{let arg:Arguments = {Arguments
                         {on e:KeyPress  do
                             {tf1.record-typing-for-undo e.value}
                         },
                         {on e:ValueChanged at tf:TextField do
                             {if {regexp-match? |"\D"|, tf.value} then
                                 {tf.undo}
                              else
                                 {tf.clear-undo-stack}
                             }
                             {if {tf.get-text}.size >= tf.max-chars then
                                 let kp:KeyPress = {KeyPress}
                                 set kp.value = KeyPressValue.tab
                                 {tf1.ui-object.enqueue-event
                                     kp
                                 }
                                 {e.consume}
                             }
                         },
                         {on AttachEvent do
                             {tf1.become-active}
                         }}}
{let tf1:TextField =
    {TextField
        width = 40pt,
        max-chars = max-chars,
        {splice  arg}
    }
}
{let tf2:TextField =
    {TextField
        width = 40pt,
        max-chars = 5,
        {splice  arg}
    }
}
{let tf3:TextField =
    {TextField
        width = 40pt,
        max-chars = 4,
        {splice  arg}
    }
}
{let tf4:TextField =
    {TextField
        width = 25pt,
        max-chars = 3,
        {splice  arg}
    }
}
{let tf5:TextField =
    {TextField
        width = 60pt,
        max-chars = 10,
        {splice  arg}
    }
}
{HBox tf1,tf2,tf3,tf4,tf5}