在DBGRID里添加行序号

1. //  1. create new blank field in dbgrid
2. //  2. rename the title with 'No'
3. //  3. put this code in OnDrawColumncell
4. //  4. Now your Grid has a row number
6. procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
7.   DataCol: Integer; Column: TColumn; State: TGridDrawState);
8. begin
9.   if DataSource1.DataSet.RecNo > 0 then
10.   begin
11.     if Column.Title.Caption = 'No' then
12.       DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));
13.   end;
14. end;