dbgrid 最左边有一竖排的小格子

Question

dbgrid 最左边有一竖排的小格子
我想让它按照查询出来的数据顺序依次显示1、2、3－－－
一直到最后的数据。请教有无办法？

Answer 1

添加一个新的列,在他的ongettext事件中添加代码

Answer 2

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  DBGrid1.Canvas.Brush.Style := bsclear;
  DBGrid1.Canvas.TextOut(0,DataCol*(Rect.Bottom-Rect.Top)+5,IntToStr(DataCol));end;// 对齐方面自个调整