Scrollbox mit eigenständiger Scrollbar scrollen

[lordcroc]

Hallo,

ich habe auf einem Form mehrere Scrollboxen nebeneinander die auch Vertikal scrollbar sein müssen, aber immer alle zur gleichen Zeit. Habe mir neben die Scrollboxen eine Scrollbar eingefügt und setze dort beim Scrollen die Positionen der einzelnen Scrollbars der Scrollboxen, das funktioniert auch ganz gut aber auch nur dann wenn ich die Scrollbars der Scrollboxen nicht auf Invisible mache und alle scrollbars eingeblendet lassen sieht ja nicht so gut aus. Vielleicht hat ja jemand das selbe Problem gehabt und kann mir weiterhelfen.

mfg
lordcroc

[Niko]

Hi,

die Methode ScrollBy funktioniert auch mit unsichtbaren Scrollbars.

[lordcroc]

Alles klar Danke. werde ich so machen.

mfg
lordcroc

[xineohp]

*alten Thread ausgrab*

Hm, also bei mir funktioniert das irgendwie nicht ...

Ich hab eine Scrollbox bei der ich den Scrollbar ausgeblendet habe,
und einen zusätzlichen Scrollbar (der gleichen Größe) in dessen OnScroll-Ereignis ich Scrollbox.ScrollBy(DeltaX, 0) aufrufe:

Delphi-Quellcode:

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
var deltax: integer;
begin
 // Scrollbox1.HorzScrollBar.Position := Scrollpos;  // Funktioniert einwandfrei, solange Scrollbar visble

  deltax := Scrollpos - FOld;  // FOld ist eine globale Variable damit ich DeltaX berechnen kann.
  Scrollbox1.ScrollBy( -deltaX, 0);
  FOld := Scrollpos;
end;

Wenn man jetzt scrollt zuckt die Scrollbox zwar etwas, aber sie wird nicht gescrollt?!

MfG Peter

[xineohp]

hm,

wäre nett, falls jemand bei das funktioniert mal ein kleines Beispiel posten könnte, damit ich sehe was ich falsch mache.

Gruß Peter