シングルラインエディットで Enter キー入力時に次のコントロールにフォーカスを移動する

方法

シングルラインエディットで [Enter] キーが押されたときに次のコントロールにフォーカスを移動するには、ウィンドウの Key イベントで [TAB] キーを送信します。

シングルラインエディットへの [Enter] キーの入力はウィンドウオブジェクトの Key イベントで受け取ることができます。 Key イベントで現在フォーカスがあたっているコントロールを取得して種類を判別し、シングルラインエディットである場合に Send 関数により [TAB] キーの入力を送信することで、次のコントロールにフォーカスを移動させることができます。

【例】

[ウィンドウオブジェクトの Key イベント]

graphicobject lgo_focus

// 現在フォーカスのあるコントロールを取得
lgo_focus = GetFocus()

// コントロールの種類がシングルラインエディットか判定
IF TypeOf(lgo_focus) = SingleLineEdit! THEN
    IF key = KeyEnter! THEN
        // [Enter] キーが入力された場合 [TAB] キーを送信
        Send(Handle(lgo_focus), 256, 9, Long(0,0)) 
    END IF
END IF