Советы по Delphi

       

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


Скомпилируйте это, и вы получите новый компонент с нужными свойствами:

unit RowGrid;
interface
uses
WinTypes, 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]



Содержание раздела