Советы по Delphi

         

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]



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