DELPHI里使用CXGRID给行加序号

Posted 2023-03-29

语言：DELPHI表格控件：CXGRID界面如图：现在的问题是：在CXGRID新增一行时，在序号这一列按递增出现0001，0002，0003，序号列绑定了表字段名：XuHao.另外在删除时，比如删除了0002这一行，还剩下0001和0003，在新增一行时，需要从0004开始。请问该如何做

其实这个方法就是cxGrid范例中提供的，原范例在CellLevelMultiselectDemo目录下
把cxGridView里OptionsView选项中的两项修改成如下
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 40//宽度
在customDrawIndicatorCell事件中填写
procedure TForm1.cxGrid1BandedTableView1CustomDrawIndicatorCell(
Sender: TcxGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
AIndicatorViewInfo: TcxGridIndicatorRowItemViewInfo;
ATextRect: TRect;
// AStyle: TcxStyle;
aCV:TcxCanvas;
begin
if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
Exit;
aCV:=ACanvas ;
ATextRect := AViewInfo.ContentBounds;
AIndicatorViewInfo := AViewInfo as TcxGridIndicatorRowItemViewInfo;
InflateRect(ATextRect, -2, -1);
if AIndicatorViewInfo.GridRecord.Selected then //这个if段是为了在行号处把把选中的行号跟别的区分开，可不用
begin
aCV.Font.Style := Canvas.Font.Style + [fsBold];　
aCV.Font.Color := clRed;
end
else
begin
　aCV.Font.Style := Canvas.Font.Style - [fsBold];
　acv.Font.Color := Canvas.Font.Color;
end;
Sender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.ContentBounds,
ATextRect, [], cxBordersAll, cxbsNormal, taCenter, vaCenter,
False, False, IntToStr(AIndicatorViewInfo.GridRecord.Index + 1),
// AStyle.Font, AStyle.TextColor, AStyle.Color);
acv.Font,acv.font.Color,acv.Brush.color );
ADone := True;
end; 参考技术A 用dbgrideh吧。。。自动的