Как получить номер средней строки в текущем представлении DBGrid

Мой ответ здесь показывает, как определить текущий номер строки и количество строк в DBGrid:

type
  TMyDBGrid = Class(TDBGrid);

function TForm1.GetGridRow: Integer;
begin
  Result := TmyDBGrid(DBGrid1).Row;
end;

function TForm1.GridRowCount : Integer;
begin
  Result := TmyDBGrid(DBGrid1).RowCount;
end;

Это позволяет избежать необходимости в помощнике класса и будет работать в версиях Delphi, которые предшествуют их поддержке.

Кстати, сетка имеет уникальную среднюю строку только в том случае, если количество строк, отображаемых в сетке, конечно, нечетное. Также будьте осторожны с тем, что вам действительно нужно, потому что средняя строка неоднозначна, если количество строк в наборе данных меньше, чем количество строк, которые сетка может отображать одновременно.

Количество строк сетки определяется по формуле:

RowCount := DBGrid1.ClientHeight div (RowHeight + 1);

Средняя строка, очевидно, составляет половину этого значения (также зависит от того, считаете ли вы строку заголовка или нет).

RowHeight не публикуется в DBGrid. Чтобы получить его, вы можете использовать класс интерпозера:

type
    TInterDBGrid = class(TDBGrid);

И используйте это так:

RowHeight := TInterDBGrid(DBGrid1).RowHeights[0];

Класс интерпозера должен быть определен перед формой.