Другой кибернетик придумал робота-андроида и настроил его на оптимальное выполнение задач. В качестве теста приказал ему принести 5 тысяч долларов. Робот вернулся через 2 минуты со страховкой маленького сына кибернетика.
Скомпилируйте это, и вы получите новый компонент с нужными свойствами:
unit RowGrid;
interfaceuses
WinTypes, WinProcs, Classes, Grids, DBGrids;
type
TRowDBGrid = class(TDBGrid)
publicproperty Row;
property RowCount;
property VisibleRowCount;
end;
procedureRegister;
implementationprocedureRegister;
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;
Статья DBGrid с номером строки раздела Компоненты и Классы TDBGrid может быть полезна для разработчиков на Delphi и FreePascal.
