Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Erste Seite im TabbedNotebook einstellen


kandesbunzler - Do 18.09.08 16:32
Titel: Erste Seite im TabbedNotebook einstellen
Hallo allerseits,

wie stelle ich es ein, daß in einem TabbedNotebook nach Programmstart der erste Tabsheet angezeigt wird?

Hinweis: 'TabbedNotebook1.PageIndex := 1;' resp. '0' funktioniert nicht. NAch Programmstart wird bspw. immer die vierte Seite angezeigt.

Danke und auf bald ...
kandesbunzler.


Martin1966 - Do 18.09.08 16:37

Wie kommst du darauf, dass das nicht funktioniert?

An welcher Stelle im Code hast du denn

Delphi-Quelltext
1:
TabbedNotebook1.PageIndex := 0;                    

stehen?

Lg, Martin


kandesbunzler - Do 18.09.08 16:44

Hallo,

direkt nach dem Start:

Delphi-Quelltext
1:
2:
3:
4:
5:
// Programmstart und Initialisierung
procedure TForm1.FormCreate(Sender: TObject);
begin
  TabbedNotebook1.PageIndex := 1;
...

Auf bald ...
kandesbunzler.


elundril - Do 18.09.08 16:54

schau mal obs geht wenn du es ins on show setzt bzw wenn du ein application.processmessages davorschreibst.

lg elundril


kandesbunzler - Do 18.09.08 17:16

Leider funktioniert beides nicht.

Aber ich gehe doch richtig in der Annahme, daß der PageIndex sich auf die Nummer des jeweiligen Tabsheets bezieht??

Auf bald ...
kandesbunzler.


Reinhard Kern - Do 18.09.08 19:45

user profile iconkandesbunzler hat folgendes geschrieben:
Hallo,

direkt nach dem Start:

Delphi-Quelltext
1:
2:
3:
4:
5:
// Programmstart und Initialisierung
procedure TForm1.FormCreate(Sender: TObject);
begin
  TabbedNotebook1.PageIndex := 1;
...

Auf bald ...
kandesbunzler.


Hallo,

ich verwende


Delphi-Quelltext
1:
2:
3:
4:
procedure TRKMainForm.FormCreate(Sender: TObject);
begin
PageControl1.ActivePage := Components;
...


Das Tabsheet heisst "Components". TabbedNoteBook soll nicht mehr verwendet werden wg. veraltet. Es müsste mit ActiveIndex auch gehen.

Gruss Reinhard


kandesbunzler - Mi 15.10.08 11:15

Hallo allerseits,

leider habe ich das Problem immer noch nicht lösen können. Auch das versuchsweise Verwenden von:

Delphi-Quelltext
1:
2:
3:
  TabbedNotebook1.PageIndex := 0;
  TabbedNoteBook1.ActivePage := 'Meine erster Tab';
  TabbedNoteBook1.ComponentIndex := 0;

hat nichts gebracht. Könnte es noch eine andere Ursache haben?

Danke nochmals und auf bald ...
kandesbunzler.

Moderiert von user profile iconNarses: Delphi-Tags hinzugefügt


Jerk - Mi 15.10.08 13:57

Probier mal:

Delphi-Quelltext
1:
  tbnb.pages.Move(tbnb.PageIndex,tbnb.PageIndex);                    



edit äh verwerfen


jaenicke - Mi 15.10.08 14:44

Schau dir besser user profile iconReinhard Kerns Tipp [http://www.delphi-forum.de/viewtopic.php?t=524221] mal an, TabbedNotebook ist einfach nur... :puke:

Nichtsdestotrotz:
user profile iconkandesbunzler hat folgendes geschrieben Zum zitierten Posting springen:
direkt nach dem Start:

Delphi-Quelltext
1:
2:
3:
4:
5:
// Programmstart und Initialisierung
procedure TForm1.FormCreate(Sender: TObject);
begin
  TabbedNotebook1.PageIndex := 1;
...
Das funktioniert wunderbar, ich habe es gerade getestet. Ich vermute du setzt das an anderer Stelle erneut oder so. 0 ist die erste Seite, dies wäre die zweite.