/* 削除範囲格納用 */
 Number c_col;
 Number c_row;
 Number c_col2;
 Number c_row2; 
 /* セルブロック判断用 　0：セル／1：セルブロック */
 Number fg = 0;
 SSpread SSpread1 {
  X = 13;
  Y = 109;
  Width = 463;
  Height = 208;
  ColWidth(4) = 80;  
  Function OnBlockSelected( e ) {
   /* セルブロックを選択し終わったときに発生 */
   ^.c_col = e.BlockCol;
   ^.c_row = e.BlockRow;
   ^.c_col2 = e.BlockCol2;
   ^.c_row2 = e.BlockRow2;
   ^.fg = 1;
  }
 } 
 Function OnKeyDown( e ) {  
  /* フォーカスがあたっているオブジェクトを取得 */
  var obj = //.GetFocus();  
  /* DELETEキーが押下されたら値をクリアします */
  if( e.Key == "DELETE") {   
   /* フォーカスがあたっているオブジェクトが「SSpread」の場合 */
   if(obj instanceof SSpread){
    /* 単一セルが選択された場合 */
    if(fg == 0){
     c_col = obj.ActiveCol;
     c_row = obj.ActiveRow;
     c_col2 = obj.ActiveCol;
     c_row2 = obj.ActiveRow;
    }
    /* 選択範囲のセル(セルブロック)の値をクリア */
    obj.ClearRange(c_col, c_row, c_col2, c_row2, $TRUE);
    fg = 0;
   }
  }
 }

 SSpread SSpread1 {
  X = 36;
  Y = 47;
  Width = 313;
  Height = 195;
  
  /* 「Delete」キー押下時にセルのデータをクリアする */
  ProcessDelete = $DeleteDataOnly;
 }