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.
Manchmal sehen Dinge, die wie Dinge aussehen wollen mehr wie Dinge aus, als Dinge
<Esmerelda Wetterwachs>