kleiner Wizard, Vorgehen?

[Mario]

Weil dann immer noch der Reiter zu sehen ist. Und genau das ist nicht gewünscht, schließlich soll der Anwender ja nicht sehen, dass er auf einem Karteireiter ist und natürlich werden so ein paar Pixel gespart

[choose]

Offensichtlich bin ich nicht in der Lage, die Idee mit Worten darzustellen.
Probiere einfach einmal das:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  with PageControl1 do
    for i:= 0 to Pred(PageCount) do
      Pages[i].TabVisible:= False;
end;

Und Du wirst sehen, dass Du keine Reiter sehen wirst

[Mario]

Hmm, erst war ich begeistert, nur der Rahmen hat mich noch etwas gestört. Aber dann habe ich mal auf jedes TabSheet ein Label gemacht und nach dem Lauf Deiner Routine konnte ich kein Label sehen. Wo soll da der Sinn liegen? Da kann ich ja dem Anwender den Inhalt eines Tabsheets wieder nicht zeigen

[choose]

Nach dem Durchlaufen der Schleife hat der Wert von PageControl1.ActivePageIndex den Wert -1 bzw PageControl.ActivePage ist nil. Weil Du ohnehin gezwungen bist, die Seiten programmseitig zu setzen (schließlich sind die Reiter ja nun verschwunden), sehe ich kein Problem, die gewünschte Seite nach der Schleife gemäß der Ablauflogik zu setzen...
Weil meine Ausführungen heute aber offensichtlich nicht das gelbe vom Ei sind, ich meine zB das:
PageControl1.ActivePageIndex:= 0;

[Phoenix]

Erm... ja.

Die Logik um die tabSheets entsprechend anzusteuern muss dann natürlich selber an die Buttons gehängt werden. Vergass ich das zu erwähnen?

Das ist aber wie gesagt nur einmal so eine fitzelarbeit. Am ende hat man ein schönes Template für einen funktionierenden Wizzard

[Mario]

Au ja, ich habe es gerade gesehen. Glücklicherweise kann man ja den PageIndex immer noch setzen! Cool, ich denke, dass wird mir bei Gelegenheit sicher mal helfen

[ims]

dachte das thema sei gegessen und wollte gleich eine weitere frage stellen da sehe ich dass mario genau das gleiche prob hatte, und die lösung auch schon da steht

danke euch!!

gruss, ims