Hallo
Ich möchte ein kleines Installationsprogramm schreiben.
Nun ist es so, daß die Installation in verschiedenen Schritten abläuft, jedoch alles in einem Fenster stattfindet.
Meine Frage ist wie die Form verändert wird, wenn man auf den "weiter"-Knopf drückt. Funktioniert das mit Frames oder wie?


Moderiert von Christian S.: Topic aus Sonstiges (Delphi) verschoben am So 23.12.2007 um 12:42

Eine Möglichkeit: TNotebook. Zu finden in Win 3.1 Komponenten.

Allerdings ist das eine veraltete, aber voll funktionierende Komponente aus Win 3.1 Zeiten. Es gibt keine Hilfe dazu.

Die neuere Version dürfte wohl TPageControl sein. Für jeden Schritt legst Du eine Seite an und stellst die TabVisible-Eigenschaft auf False. Dann ist das PageControl nicht mehr sichtbar und Du kannst im Quellcode die Seiten durchschalten

Danke schonmal.
Jede Seite ist also ein Tabsheet. Aber wie erstelle ich jetzt beispielsweise ein Label, das nur für Tabsheet1 sichtbar ist?

Du fügst nur der einen Seite hinzu und der anderen nicht. Achte drauf, dass Du ein TPageControl und kein TTabControl benutzt.

Ja, ich benutze TPageControl, aber so ganz hab ich es noch nicht verstanden.
Zeil wäre sowas: img54.imageshack.us/img54/6699/zielse4.jpg

So ist es bestimmt falsch oder? img54.imageshack.us/img54/6642/tabblt6.jpg
Wenn ich Visible auf False setze, würde ich ja nichts mehr davon sehen.

Das ist schon richtig. Bei den Sheets setzt Du noch TabVisible auf "False", damit man nicht sieht, dass es ein PageControl ist.

Jetzt packst Du z.B. mal einen Button auf die erste Seite, nennst ihn "weiter". Im Click-Ereignis kannst Du dann die näcshte Seite ansteuern:

Ok, hatte Visible mit TabVisible verwechselt

Eine Frage noch: Im Moment sind die einzelnen Tabsheets noch hervorgehoben. Bei meinem ersten Link sind dort so nette Grenzen. Wie bekomm ich die hin?

Irgendwo hier in der Unitsammlung hat irgenwer mal eine Wizardkomponente veröffentlicht. Musste ma suchen. Vllt is das was für dich
www.delphi-forum.de/...amp;highlight=wizard

Sleipnir hat folgendes geschrieben:

Eine Frage noch: Im Moment sind die einzelnen Tabsheets noch hervorgehoben. Bei meinem ersten Link sind dort so nette Grenzen. Wie bekomm ich die hin?

Ich glaube, Du musst den Style das PageControls auf "tsFlatButton" stellen

Ok, mit tsFlatButton bzw tsButton fukntionnierts und die Abgrenzung bekomm ich mit einem Bevel hin.

Danke an alle für die schnelle Hilfe