Mal der Quelltext für das erste Menü:
Delphi-Quellcode:
FlatPanel2.Visible:=false;
FlatPanel3.Top:=456;
FlatPanel4.Top:=480;
Label19.Visible:=true;
Label18.Visible:=false;
FlatPanel2 ist das Ausgeklappte Menü und wird über
false eingezogen.
FlatPanel 3/4 gehören zum zweiten Ausklappmenü und werden von ihrer ursprünglichen Top-Stelle auf die neuen Top-Werte gesetzt. Label19 ist ein ">>"(ausklappen) und wird zu "<<" (einklappen).
Hat FlatPanel2 z.B. den Top Wert: 36 und ich scrolle nach unten, ist der Top-Wert -75.
ParentOptionen der Scrollbox sehen wie folgt aus:
ParentBiDiMode --> true
ParentCtl3D --> true
ParentShowHint --> true
ParentColor --> false