Scrollbox HorzScrollBar position setzen

[EWeiss]

Wie kann man die Position der HorzScrollBar setzen abhängig von X
also wenn meine Linie die Weite der Scrollbox überschritten hat.

X kann ich nicht übergeben da die HorzScrollBar nicht scrollen soll
Diese soll dann um 1 inkrementieren damit das Bild eine Seite weiter schaltet.

Nebenbei: Kann man einstellen das diese nicht von Hand bedient werden kann?

gruss

[himitsu]

Nimm doch einfach eine TScrollBar, denn da weißt du bestimmt schon, wie man die ansteuert und sie verschiebt garantiert nix.
Und Enabled=False? (oder beim Panel drumrum)

[EWeiss]

Zitat von himitsu:

Nimm doch einfach eine TScrollBar, denn da weißt du bestimmt schon, wie man die ansteuert und sie verschiebt garantiert nix.
Und Enabled=False? (oder beim Panel drumrum)

Welche Berechtigung hat dann eine TScrollbox wenn man nicht mal Seitenweise blättern kann?
Mehr will ich doch nicht.

Zitat:

Und Enabled=False?

Jo klar hab mich jetzt zu sehr auf die HorzScrollBar die ist nicht zu disablen.
Ok naja (war spät gestern) dann halt die TScrollbox komplett.

gruss

[himitsu]

Bissl was zum rumstöbern:
TScrollBox.HorzScrollBar.Increment
TScrollBox.HorzScrollBar.Position
TScrollBox.HorzScrollBar.Range
SB_VERT
EnableScrollBar
SetScrollPos
FlatSB_SetScrollPos

[EWeiss]

Zitat von himitsu:

Bissl was zum rumstöbern:
TScrollBox.HorzScrollBar.Increment
TScrollBox.HorzScrollBar.Position
TScrollBox.HorzScrollBar.Range
SB_VERT
EnableScrollBar
SetScrollPos
FlatSB_SetScrollPos

Danke.. Werde mal sehen ob ich da eine Lösung finde.

gruss

[EWeiss]

Leider haben mir deine Infos nicht weitergeholfen aber egal
Habe es jetzt so gelöst..

Delphi-Quellcode:

  if x >= (ScrollBox1.Width + xOffset) then
  begin
    Scrollbox1.HorzScrollBar.Position := x;
    xOffset := xOffset + ScrollBox1.Width;
  end;

X ist die LineTo Position.
Und die Scrollbox1 Enabled = false gesetzt.

gruss