*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