Panel + Scrollbar

[Störtebeker]

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