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

Материал из DRKB

DBGrid с номером строки[править | править код]

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;


Source: Взято с http://delphiworld.narod.ru
ID: 03070