Form Fcs_007 {
  ・・・・・
   TextBox TextBox2 {
    X = 90;
    Y = 277;
    Width = 143;
    Height = 30;
    AutoTabFocus = $FALSE;
    Number flg;
    Function OnFocusOperation( e ) {
     ^.Label5.Value = "";
     var len = length(Value,0);
     var res = "";
     for( var i = 0; i < len; i++ ) {
      var c = mid(Value, i, 1, 0);
      if(c == " " || c == "　"){
       c = "";
       res += c;
       ^.Label5.Value = "スペースを除去しました";
      }else{
       res += c;
      }
     }
     Value = res;
     flg = 1;
     MoveFocus();
    }
   }
  ・・・・・
   Function OnGetFocus( e ) {
    var beforeobj = fobj[0];
    fobj[1] = beforeobj;
    fobj[0] = e.From;
    /* マウスクリックによるフォーカス遷移を判断し処理実行 */
    if(fobj[0] != fobj[1]){
     if(fobj[1] != null){
      if(fobj[1].Name == "TextBox2"){
       /* キーでの遷移の処理済じゃないかを判断 */
       if(TextBox2.flg == 1){
        TextBox2.flg = 0;
       }else{
        TextBox2.OnFocusOperation();
       }
      }
     }
    }
   }
  ・・・・・
  }