Ich habe visuell folgende Komponenten in einem Form:
TPageControl, auf jedem TTabSheet ein TPageScroller, im TPageScroller ein TToolbar (mit einigen Buttons). Verkleinere ich das Formular so erscheinen die Scrollbuttons und ich kann die Position zu den nächsten Buttons weiterschalten -> OK!!
Erzeuge ich diesen Aufbau manuell:
TS:= TTabSheet.Create(PC);
TS.PageControl := PC;
TS.parent:= PC;
TS.Caption := TrimmAll(RG.Name);
//Verschieben Comonente einfügen
PS:= TPageScroller.Create(TS);
PS.Align:= alClient;
PS.AutoScroll:= false;
PS.Parent:= TS;
PS.AutoScroll:= false;
TB:= TToolbar.Create(PS);
TB.Parent:= PS;
TB.Flat:= true;
TB.AutoSize:= false;
PS.Control:= TB;
TB.align:=alNone;
TB.Anchors:= [akTop];
TB.Width:= 10;
TB.Wrapable:= false;
TB.ShowCaptions:= false;
IL:= TimageList.Create(Application.Mainform);
IL.Height:= 22;
IL.Width:= 22;
TB.Images:= IL;
RG.Darstellen(IL,TB);//Buttons einfügen
......
Ist es nicht möglich die durch scrollen an die hinteren Buttons zu kommen. Die Buttons werden nur um den vorderen neu eingefügten Scrollbutton verschoben und nicht weiter. Left des TToolbar Objekts wird bei der Visuellen Variante angepasst bei der manuellen jedoch nicht!?
Was muss ich anders machen, damit es funktioniert?
Danke
TPageControl, auf jedem TTabSheet ein TPageScroller, im TPageScroller ein TToolbar (mit einigen Buttons). Verkleinere ich das Formular so erscheinen die Scrollbuttons und ich kann die Position zu den nächsten Buttons weiterschalten -> OK!!
Erzeuge ich diesen Aufbau manuell:
TS:= TTabSheet.Create(PC);
TS.PageControl := PC;
TS.parent:= PC;
TS.Caption := TrimmAll(RG.Name);
//Verschieben Comonente einfügen
PS:= TPageScroller.Create(TS);
PS.Align:= alClient;
PS.AutoScroll:= false;
PS.Parent:= TS;
PS.AutoScroll:= false;
TB:= TToolbar.Create(PS);
TB.Parent:= PS;
TB.Flat:= true;
TB.AutoSize:= false;
PS.Control:= TB;
TB.align:=alNone;
TB.Anchors:= [akTop];
TB.Width:= 10;
TB.Wrapable:= false;
TB.ShowCaptions:= false;
IL:= TimageList.Create(Application.Mainform);
IL.Height:= 22;
IL.Width:= 22;
TB.Images:= IL;
RG.Darstellen(IL,TB);//Buttons einfügen
......
Ist es nicht möglich die durch scrollen an die hinteren Buttons zu kommen. Die Buttons werden nur um den vorderen neu eingefügten Scrollbutton verschoben und nicht weiter. Left des TToolbar Objekts wird bei der Visuellen Variante angepasst bei der manuellen jedoch nicht!?
Was muss ich anders machen, damit es funktioniert?
Danke