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