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;
|