String Grid positionieren

[Sidorion]

1. ging ich davon aus, daß er einen Nachfolger von TStringGrid schreibt, wie das jeder vernünftige Mensch tun würde, da man dieses Verhalten ja auch annderswo brauchen könnte, und
2. Row ist falsch, das setzt nur die markierte Zeile, scrollt aber nicht die Grid

Wenn Dus als Nachfolger schreiben willst musst du aber noch Folgendews machen:
1. die Property RowCount überschreiben(weilSetRowCount von TCustomGrid nichht virtuell ist) mit

Delphi-Quellcode:

Published 
...
Property RowCount: Integer Read GetRowCount Write SetRowCount;

2. Die Get-und Set- Methoden anlegen mit

Delphi-Quellcode:

Protected
...
Function GetRowCount: Integer;
Procedure SetRowCount(_iRiwCount: Integer);

3. den Get-und Set-Methoden Leben einhauchen mit

Delphi-Quellcode:

Function TMyGrid.GetRowCount: Integer;
Begin
  Result:=GetRowCount;
End;
Procedure TMyGrid.SetRowCount(_iRowCount: Integer);
Begin
  Inherited SetRowCount(_iRowCont);
  TopRow:=Max(1,(RowCount-FixedRows)-VisibleRowCount); 
End;

Wenn Du das Verhalten noch steuerbar machen willst, dann musst du noch eine Boolean einfügen, der du auch eine Property verpaßt. Dann kannst du in SetRowCount noch die Boolean abfragen und nur dann scrollen, wenn sie true ist.