dxSpreadSheet 代码合并和拆分单元格

procedure TForm1.btn1Click(Sender:TObject);

var

ARect:TRect;

begin

ARect:= dxSpreadSheet1.ActiveSheetAsTable.Selection.Area;

  dxSpreadSheet1.ActiveSheetAsTable.MergedCells.Add(ARect);

end;

procedure TForm1.btn2Click(Sender:TObject);

var

ARect:TRect;

begin

ARect:= dxSpreadSheet1.ActiveSheetAsTable.Selection.Area;

  dxSpreadSheet1.ActiveSheetAsTable.MergedCells.DeleteItemsInArea(ARect);

end;