Form Fcs50_003 {
    ・・・（略）・・・
    Label lbl_target {
        X = 378;
        Y = 134;
        Width = 81;
        Height = 57;
        BgColor = $RED;
    }
    ・・・（略）・・・
    Function OnGetFocus( e ) {
        /* ターゲット(ラベル)のセット処理 */
        target_set();
    }

    Function target_set(){
        /* フォーカスの当たっているオブジェクトを取得する */
        var obj = //.GetFocus();
        
        /* フォーカスが当たっているオブジェクトを判断し、
           色を設定する */
        if(obj.Name != ""){
            /* TextBoxの場合 */
            if(obj instanceof TextBox){
                lbl_target.BgColor = $GREEN;
            /* Buttonの場合 */
            }else if(obj instanceof Button){
                lbl_target.BgColor = $BLUE;
            /* その他 */
            }else{
                lbl_target.BgColor = $RED;    
            }
            
            /* ターゲット(ラベル)の位置を計算し、設定する */
            lbl_target.X = obj.X - 2;
            lbl_target.Y = obj.Y - 2;
            lbl_target.Width = obj.Width + 4;
            lbl_target.Height = obj.Height + 4;
        }
    }
}