eventuell kannst Du dein Grid vom TCustomGrid ableiten und dann auf die Eigenschaft TopRow zugreifen
Mit SettopRow kannst Du dann die Oberste Zeile beeinflussen.
Code:
Type
MyTDBGrid = class(TCustomGrid)
public
property TopRow;
property VisibleRowCount;
procedure SetTopRow(Value: Longint);
End;
procedure MyTDBGrid.SetTopRow(Value: Longint) ;
begin
inherited;
end;
procedure TForm1.ereignisdeinerwahl(Sender: TObject);
var
TopRowNo : Integer;
VisibleRows : Integer;
begin
TopRowNo := MyTDBGrid(yourTDBGrid1).TopRow;
VisibleRows := MyTDBGrid(yourTDBGrid1).VisibleRowCount;
end;
Der Code ist ungetestet
Nur so als Denkanstoß