Registriert seit: 3. Jul 2011
128 Beiträge
Delphi 10 Seattle Professional
|
PageControl + Scrollbox
13. Nov 2020, 19:19
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.
Delphi 6 Prof., Delphi 10 Seattle Prof., IBO 4, IBO 5, Firebird 2.5, Windows 10 Prof., Windows 11 Prof.
|