PageControl + Scrollbox

[kdf]

Hallo,

ich habe eine Anwendung mit vielen TForm, die viele TPageControl haben.

Jedes TForm hat also ein TPageControl mit mehr oder weniger TTabSheet's.

Jedes TabSheet hat oben ein TControlbar mit der Steuerung für Firebird (TIB_UpdateBar, TIB_NavBar, TIB_SearchBar, etc.)

Das funktioniert super, solange die Controls genügend Platz haben. Wenn ich jetzt mehrere TForm gleichzeitig öffne und diese
z.B. mit 1/4 Größe anordne, ist das mit dem Platz für die Controls meist nicht mehr gegeben.

Ich habe nun hinter das TPageControl ein TScrollBox gelegt. Das funktioniert aber nicht komfortabel, da sich TScrollBox nicht an
den TabSheet's orientiert, sondern am TForm. Das führt zu ungewollten automatischen Verschiebungen in den verschiedenen Tabs.
Da wird z.B. das Menue oder die Steuerelemente nach oben weggeschoben. Man muß immer wieder die ControlBars nutzen, um weiter
arbeiten zu können. Geht nicht, ist total unkonfortabel. Man könnte jetzt für jedes TabSheet ein eigenes TScrollBox verwenden.
Damit wäre das Problem wohl gelöst.

Es sind derzeit etwa 100 TabSheet's. Das wäre viel Arbeit für diesen Umbau.

Hat vielleicht jemand eine Idee, wie man das anders lösen kann?

Gruß
K.-D.

[Der schöne Günther]

Du bist doch Programmierer. Niemand zwingt dich, im Formular-Designer die Dinger von Hand da reinzufrickeln. Du kannst doch ebenso Code schreiben der zur Laufzeit diese Scrollboxen auf jedem TTabSheet auf jedem Formular platziert und den bisherigen TTabSheet-Inhalt in die Scrollbox packt.