Enterキーによるフォーカス移動

◆ご質問◆
Enterキー、Shift+Enterキーでフォーカス遷移させることは可能でしょうか。

◆回答◆
コントロールで特定のキーが押された時にフォーカスを遷移させることは可能です。

{curl 6.0,7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}

{define-class public MyTextField {inherits TextField}

{constructor public {default …}
{construct-super …}
}

{method public {on-key-press e:KeyPress}:void
    {if e.value == KeyPressValue.enter then
        {if-non-null self.active-traversal-container then
            {self.active-traversal-container.traverse forward? = not e.shift?}
        }
    }
    {super.on-key-press e}
}
}
{value
    {VBox spacing = 10pt,
        {MyTextField width = 200pt},
        {MyTextField width = 200pt},
        {MyTextField width = 200pt}
    }
}