TDBGrid und ScrollBar

[eddy]

Hallo Leute,

weiß jemand, wie man direkt auf den ScrollBar eines TDBGrid zugreifen kann?

In der Art:

wert := DBGrid.ScrollBar.Position

DBGrid.ScrollBar.Max := wert


mfg
eddy

[Gaius]

Hallo,

beim DBGrid werden die Parameter der Scrollbar über die DataSource gesetzt. D.h. die Position der ScrollBar ergibt sich aus dem aktuell ausgewähleten Datensatz in der DataSource.
Mit DataSource.Next kannst Du beispielsweise auf den nächsten Satz positionieren.
Selbst wenn Du eine Möglichkeit findest die ScrollBars direkt zu beeinflussen, wird Dir die DataSource dazwischen pfuschen.

Mein Tipp: Versuche es über die DataSource.


Tschüss

[eddy]

Hallo Gaius,

ich hätte wohl doch ein bischen mehr dazu sagen sollen.

Wenn man den Schieberegler des DBGrid.Scrollbar bewegt, passiert nichts, bis man los läßt. Beim Scrollen durch eine Datenbank sieht man also erst das Ergebnis, wenn man selbiges beendet.

Diesen Nachteil habe ich dadurch ausgeglichen, daß ich über den vorhandenen Scrollbar einen eigenen gelegt habe. Beim Bewegen des darin vorhandenen Schiebereglers scrollen die Datenzeilen vom DBGrid sofort über den Bildschirm. Scroll ich nicht zu schnell, kann ich sehen, wo ich mich in etwa befinde (z.B. wenn ich einen bestimmten Name suche).

DataSource und ScrollBar werden durch entspreichende Befehle miteinander gekoppelt, so daß der Schieberegler seine Position (=ScrollBar.Position) ändert, wenn mit der Maus oder der Tastatur in der DBGrid geblättert wird. Funktioniert soweit auch halbwegs vernünftig, solange ich kein Filter auf die Datenbank lege sowie beim Löschen und Hinzufügen von Datensätzen ScrollBar.Max korrigiere.

Diese zusätzlichen Aufwendungen möchte ich durch eine angepaßte DBGrid-Komponente vermeiden. Und dazu muß ich eben direkt auf die ScrollBar.Position .Min und .Max zugreifen (und natürlich auch auf Table.RecNo).

Also, weitere Vorschläge werden erbeten.

mfg
eddy