Probleme mit TScrollbar

[snapman]

Hallo,

bei TScrollbar gibts ja ein Event "OnChange"...
das problem ist das das event auch dann ausgelöst wird wenn man die scrollbar mit gedrückter maus nach rechts bewegt und nicht erst wenn man sie losgelassen hat

das problem ist folgendes:
habe eine riesen DB, von der ich aber immer nur 100 einträge darstellen kann
nun soll man eben mit der scrollbar navigieren können
wenn 1000 einträge drin sind und man den regler zur mitte zieht soll eben eintrag 500 kommen
im moment lädt er aber 499x neu weil er eben bei ständig das event auslöst, obwohl ja mit gedrückter maustaste gezogen wird und eben erst bei 500 ausgelöst werden soll

habt ihr ne lösung?

[Hawkeye219]

Hallo snapman,

ist dir schon das Ereignis TScrollBar.OnScroll aufgefallen? Dort gibt es einen Parameter ScrollCode...

Gruß Hawkeye

[snapman]

finde dazu leider nichts in der hilfe

[Hawkeye219]

Du hast Recht, die Hilfedatei von Delphi 2006 ist (auch) an dieser Stelle unzureichend.

Zitat von Delphi6-Hilfe:

Das Ereignis OnScroll wird ausgelöst, sobald der Benutzer den Bildschirmausschnitt mit der Maus oder Tastatur verschiebt.

type
TScrollEvent = procedure (Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer) of object;

property OnScroll: TScrollEvent;

Beschreibung

Mit einer Ereignisbehandlungsroutine für OnScroll können Sie den Wert von Position anpassen, wenn der Benutzer den Bildausschnitt verschiebt. Der Parameter ScrollPos enthält den neuen Wert von Position. Sie können ScrollPos auch ändern, um das Ergebnis der Bildlaufoperation zu verändern.

Der Parameter ScrollCode gibt die Benutzeraktion an, durch die das Verschieben des Bildausschnitts erfolgt ist.

Die genaue Erklärung zum Typ TScrollCode findest du über die Suchfunktion der Delphi-2006-Hilfe (Stichwort "TScrollCode"). Für dich dürfte der Wert scEndScroll interessant sein. Nortfalls hilft auch ein Blick in die Quelltexte der VCL (Unit StdCtrls.pas).

Gruß Hawkeye