[решено] Как узнать номер выделенной строки в DBGrid?

[jotto]

В Delphi так

Код: Выделить всё

TStringGrid(DBGrid1).Row

а как в Lazarus?
----
Добавил uses grids - заработало

[Vadim]

jotto
Начнём с того, что DBGrid - это вовсе и не таблица, а всего лишь зримое отображение набора данных и, следовательно, там нет никаких строк вовсе. Отсюда логический вывод - нужно спросить номер строки у набора данных. Если Вы смотрите данные, к примеру, из DBF-файла, то узнать номер строки можно:

Код: Выделить всё

Dbf1.RecNo;

[jotto]

Vadim , мне номер строки в гриде нужен был для отрисовки своего контрола, про DataSet я не говорил

[Vadim]

jotto
Так бы сразу и сказали, а то всё так таинственно.

[tema]

Код: Выделить всё

property Row: Integer read FRow write SetRow;

Есть точно в TCustomGrid. Достаточно создать класс myTDBGrid(TDBGrid) с этим свойством

Добавлено спустя 7 минут 1 секунду:

Код: Выделить всё

type
  MyDBGridHack = class(TDBGrid);

procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage(inttostr(MyDBGridHack(DBGrid1).Row));
end;