Delphi 实现在Cxgrid列表加一列序号

在Cxgrid中有OnGetDisplayText()事件,这个时间可以完成在Cxgrid表格中加一列序号,这列序号不会根据排序改变而改变。



procedure TForm1.cxGrid1DBTableView1Column1GetDisplayText(

     Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;

 var AText: string);

begin

atext:=inttostr(arecord.Index);

end;




在Cxgrid中有OnGetDataText()事件,这个时间可以完成在Cxgrid表格中加一列序号,这列序号会根据排序改变而改变



procedure TForm1.cxGrid1DBTableView1Column1GetDataText(

 Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: string);

begin

atext:=inttostr(arecord.Index);

end;




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