DBGrid - colunas visiveis

Para ver quantas colunas tem numa Grid cria-se uma nova grid

usando uma propriedade protected chamada VisibleRowCount:

type TMyGrid = class(TCustomGrid)

   function VisibleRowCount : integer;

end;

function TMyGrid.VisibleRowCount : integer;

begin

   result := inherited VisibleRowCount;

end;

...

...

StatusBar1.SimpleText := IntToStr(TMyGrid(DBgrid1).VisibleRowCount) + ' rows visible';