Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Wizard erstellen: Wie, ohne das es unübersichtlich wird? (https://www.delphipraxis.net/21825-wizard-erstellen-wie-ohne-das-es-unuebersichtlich-wird.html)

yankee 8. Mai 2004 19:40


Wizard erstellen: Wie, ohne das es unübersichtlich wird?
 
Ich will ein Wizard erstellen (so wie bei einer Installation mit schön viel "Weiter-Buttons". Wenn ich aber alle Kompos übereinander plaziere und diese mit Visible sichtbar mache, dann wird das ja ziemlich unübersichtlich.
Also wie würdet ihr einen Wizard erstellen?

SirThornberry 8. Mai 2004 19:43

Re: Wizard erstellen: Wie, ohne das es unübersichtlich wird?
 
Nimm ein PageControl, Style auf Flatbuttons und bei den einzelnen Pages, Tabvisible auf False setzen

alcaeus 8. Mai 2004 19:43

Re: Wizard erstellen: Wie, ohne das es unübersichtlich wird?
 
Mach es mit Frames. Du hast einen Weiter und einen Zurück Button auf dem Form, und ein Panel.
Im OnCreate erstellst du alle Frames auf diese Art:
Delphi-Quellcode:
MyFrame1 := TFrame1.Create(Self);
MyFrame1.Visible := False;
MyFrame1.Parent := Panel1;
Du musst natürlich für jedes Frame eine eigene Variable des entsprechenden Typs verwenden.
Anschließend zeigst du dann das erste Frame an (Visible := True)
Beim Klick auf weiter fragst du eine Variable ab, welches Frame sichtbar ist, und blendest dieses dann aus. Anschließend zeigst du dann das nächste an. Ich hoffe das ist einigermaßen verständlich

S2B 8. Mai 2004 19:47

Re: Wizard erstellen: Wie, ohne das es unübersichtlich wird?
 
Bestimmt ist das nicht die ideale Lösung, aber mir würde spontan das einfallen:
Delphi-Quellcode:
var i: Integer;

//Weiter-Button:
procedure TForm1.ButtonWeiterClick(Sender: TObject);
begin
  if i=1 then {...}
  if i=2 then {...}
  if i=3 then {...}
  i:=i +1;
end;

//Zurück-Button:
procedure TForm1.ButtonZurueckClick(Sender: TObject);
begin
  if i=1 then {...}
  if i=2 then {...}
  if i=3 then {...}
  i:=i -1;
end;

yankee 8. Mai 2004 20:44

Re: Wizard erstellen: Wie, ohne das es unübersichtlich wird?
 
Thx, die Lösung mit den PageControl scheint mir am einfachsten. Das werde ich mal versuchen...

Marcel Gascoyne 9. Mai 2004 11:25

Re: Wizard erstellen: Wie, ohne das es unübersichtlich wird?
 
Installier Dir einfach die JEDI-JVCL, da hast Du Komponenten für Wizards mit dabei. Einfacher gehts nicht.

Gruß,
Marcel


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:11 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz