TDBGrid с номером строки и пр.
Скомпилируйте это, и вы получите новый компонент с нужными свойствами:
|
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; |
- Mark Meyer [000813]
