Hallo Heike,
vielleicht meinst du das hier?
Delphi-Quellcode:
type
TSmart = class(TDBGrid);
procedure TDemoForm.ShowButtonClick(Sender: TObject);
begin
ShowMessage(Format('%d rows fully visible', [TSmart(DBGrid).VisibleRowCount]));
end;
Grüße vom marabu