要在 SpreadSheetTableView 中插入几行。之后,应将前一行的格式和公式 (复制剪贴板)到新行。
procedure SpreadSheetInsertRows(AView: TdxSpreadSheetTableView; ARow, AAnz: integer); begin with AView do begin InsertRows( ARow, AAnz ); Selection.Clear; Selection.SelectRows( ARow - 1, ARow - 1 ); CopyToClipboard; Selection.SelectRows( ARow, ARow + AAnz - 1 ); PasteFromClipboard( [cpoFormulas, cpoStyles] ); Selection.Clear; end; end;
时常发生剪贴板错误
解决方法如下:
THE END