Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

TDBGrid с номером строки

01.01.2007
unit RowGrid;
 
interface
 
uses
 
WinTypes, WinProcs, Classes, Grids, DBGrids;
 
type
 
TRowDBGrid = class(TDBGrid)
 
public
    property
Row;
    property
RowCount;
    property
VisibleRowCount;
 
end;
 
procedure
Register;
 
implementation
 
procedure
Register;
begin
 
RegisterComponents('Data Controls', [TRowDBGrid]);
end;
 
end.
 
 
 
{вот небольшой испытательный демо-проект.. мы
поместили на форму нашу сетку-наследницу, 3 компонента
EditBox и поместили следующий код в обработчик события
ondrawdatacell
вашего TRowGrid}
procedure TForm1
.RowDBGrid1DrawDataCell(Sender: TObject; const Rect:
 
TRect; Field: TField; State: TGridDrawState);
begin
  eb_row
.text := inttostr(rowdbgrid1.row);
  eb_rowcount
.text := inttostr(rowdbgrid1.rowcount);
  eb_visiblerowcount
.text := inttostr(rowdbgrid1.visiblerowcount);
end;

Взято с https://delphiworld.narod.ru