Советы по Delphi
TDBGrid с номером строки и пр.
Скомпилируйте это, и вы получите новый компонент с нужными свойствами:
| unit RowGrid; interface usesWinTypes, WinProcs, Classes, Grids, DBGrids; typeTRowDBGrid = class(TDBGrid)publicProperty Row;Property RowCount;Property VisibleRowCount;end; procedure Register; implementation procedure Register;beginRegisterComponents('Data Controls', [TRowDBGrid]);end; end. |
| {вот небольшой испытательный демо-проект.. мы поместили на форму нашу сетку-наследницу, 3 компонента EditBox и поместили следующий код в обработчик события ondrawdatacell вашего TRowGrid} procedure TForm1.RowDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);begineb_row.text := inttostr(rowdbgrid1.row);eb_rowcount.text := inttostr(rowdbgrid1.rowcount);eb_visiblerowcount.text := inttostr(rowdbgrid1.visiblerowcount);end; |
- Mark Meyer [000813]
