Package Package1 {
    /* ボタン */
    class BaseButton extends ImageButton{
        Width = 135;
        Height = 36;
        FontFace = $BOLD;
    }
    
    /* 通常計算用ボタン */
    class calcButton extends BaseButton{
        /* フォント色を青色、背景色を白色に設定 */
        FgColor = $BLUE;
        BgColor = $WHITE;
    }
    
    /* クリアボタン */
    class clearButton extends BaseButton{
        /* ボタンの幅を設定 */
        Width = 100;
    }
    
    /* 割引計算用ボタン
        ※通常計算ボタンの機能を継承している */
    class discountCalcButton extends calcButton{
        /* フォント色を赤色に設定 */
        FgColor = $RED;
    }
}

Form Cls_008 {
    ・・・（略）・・・
    calcButton Button1 {　　      ・・・�@
        X = 14;
        Y = 365;
        Title = "通常計算";
    }
    discountCalcButton Button2 {  ・・・�@
        X = 154;
        Y = 365;
        Title = "割引計算";
    }
    clearButton Button3 {　　     ・・・�@
        X = 356;
        Y = 365;
        Title = "クリア";
    }
    quantityTextBox:Number TextBox1 {
        X = 94;
        Y = 200;
    }
    priceTextBox:Number  TextBox2 {
        X = 297;
        Y = 200;
    }
    ・・・（略）・・・
    Function OnTouch( e ){
         /*　イベント発生元オブジェクトの
　　　　　　リファレンス取得　*/
         var obj = e.From; 

         if(obj instanceOf ImageButton){　・・・�A
              switch(obj.Name){
                 /* 通常計算ボタンの場合 */
                 case "Button1":
                    ・・・（略）・・・
                 /* 割引計算ボタンの場合 */
                 case "Button2":
                    ・・・（略）・・・
                 /* クリアボタンの場合 */
                 case "Button3":
                    ・・・（略）・・・
              }
         }
    }
    ・・・（略）・・・
}