Category: Database
Title: Add a Row Number in your DBGrid
Date added: 15.03.2006
Hits: 5484

{
  1. create new blank field in dbgrid
  2. rename the title with 'No:'
  3. put this code in OnDrawColumncell
  4. Now your Grid has a row number
}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DataSource1.DataSet.RecNo > 0 then
  begin
    if Column.Title.Caption = 'No:' then
      DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));
  end;
end;

1. How to add field to table at runtime? (5530 Hits)

2. How to color a TDBGrid? (4064 Hits)

3. How to get the table version? (2015 Hits)

4. How to select a random data record? (2314 Hits)

5. How to select all Fields in a TDBGrid? (3403 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.