?
Nun,
OK hier also meine Lösung nachdem ich
ScrollBox1->AutoScroll=false
gesetzt habe:
In der externen ScrollBar, die neben der ScrollBox vertikal platziert ist, habe ich im OnScroll-Ereignis folgendes eingetragen:
void __fastcall TForm1::ScrollBar1Scroll(TObject *Sender, TScrollCode ScrollCode,
int &ScrollPos)
{
//---- Die X-Koordniate von ScrollBy ist Null, da ich nur vertikal scrollen möchte
ScrollBox1->ScrollBy(0,-(ScrollPos-ScrollBar1->Position));
}
Wenn ich die ScrollBar bewege/scrolle, dann scrollt auch die ScrollBox wie es sein sollte und der Focus lässt die ScrollBox nicht hin und her springen.
Gruß
Hawk