官方QQ:  16643506

dxSpreadSheet 代码合并和拆分单元格

  1. procedure TForm1.btn1Click(Sender:TObject);

  2. var

  3. ARect:TRect;

  4. begin

  5. ARect:= dxSpreadSheet1.ActiveSheetAsTable.Selection.Area;

  6.   dxSpreadSheet1.ActiveSheetAsTable.MergedCells.Add(ARect);

  7. end;

  8. procedure TForm1.btn2Click(Sender:TObject);

  9. var

  10. ARect:TRect;

  11. begin

  12. ARect:= dxSpreadSheet1.ActiveSheetAsTable.Selection.Area;

  13.   dxSpreadSheet1.ActiveSheetAsTable.MergedCells.DeleteItemsInArea(ARect);

  14. end;


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678