delphi 中的 cxgrid运用当中 EXCEL合并形式

 

 

tvC := myTV.CreateColumn;
      tvC.Name :=cxHopeGridName+'_Col_'+dsTemp.FieldByName('ColunmeName').AsString;
      if(dsTemp.FieldByName('CellMerging').AsString='1') then
      begin
        tvC.Options.CellMerging:=True;//这个是关键 启用合并功能 不然即使有合同方法是不会触发的
        tvC.OnCompareRowValuesForCellMerging:=CompareRowValuesForCellMerging;
      end;

procedure THopeComGrid.CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow;
  AProperties1: TcxCustomEditProperties; const AValue1: Variant;
  ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
  const AValue2: Variant; var AAreEqual: Boolean);
begin
  if(AValue1=AValue2) then
     AAreEqual := True
   else
     AAreEqual := False;
end;