[gelöst] wechselnde Formularseiten

[Francine1989]

Hallo erstmal, ich bin ganz neu und ein absoluter Einsteiger in Sachen Programmierung.
Deshalb ist meine Frage für einige sicherlich absolut lächerlich, aber ich komme da leider nicht weiter...

Folgendes Problem soll gelöst werden: Es soll ein Projekt erstellt werden, dass auf dem Prinzip wechselnder Formularseiten basiert. Wie das aussehen soll, habe ich mit hochgeladen.

Ich habe kein Problem damit, das alles zu realisieren, mein Problem ist, dass wenn ich das Programm starte, trotzdem alle Formularfelder sehe. Erst wenn ich auf "weiter" klicke, habe ich das Zielformular so, wie es aussehen soll und wenn ich dann "zurück" klicke, habe ich das Startformular so, wie es aussehen soll. Wie erreiche ich also nun, dass direkt beim Programmstart nur die Felder des Startformulars angezeigt werden?

Mein Quelltext sieht bisher so aus (Button 1: "weiter", Button 2: "beenden", Button 3: "zurück", Label 1: "Formulartext 1. Seite", Label 2: "Formulartext 2. Seite"):

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.visible:=false;
  Button3.visible:=true;
  Label1.visible:=false;
  Label2.visible:=true;
  Form1.caption:='Zielformular';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Button3.visible:=false;
  Button1.visible:=true;
  Label2.visible:=false;
  Label1.visible:=true;
  Form1.caption:='Startformular';
end;                            
 

Vielen Dank für eure Hilfe.

[theo]

Dafür gibt es TPageControl:
http://lazplanet.blogspot.ch/2013/07/ho ... -form.html
http://lazarus-ccr.sourceforge.net/docs ... ntrol.html

[Philos]

Theo hat da natürlich Recht und die bessere Variante beschrieben. Aber wenn du es so machen willst, wie du es beschrieben hast, kannst du es folgendermaßen tun: Es gibt ein OnFormCreate-Event des Formulars ( im Object-Inspector unter Events zu finden ). Dieses musst du nur erstellen und kannst dann da deinen Startzustand reinschreiben. Dieser wird dann, wenn das Formular beim Start erzeugt wird, hergestellt.

gruß, Philos

[Francine1989]

Aaah, perfekt. Danke euch beiden. Die einfachere Variante ist die von Philos. Das reicht mir. Das ist ja echt easy, aber das muss man aber auch erstmal wissen so als Neuling

[theo]

Die einfachere Variante ist die von Philos.

Nein, das ist die aufwändige Variante.
Mit dem PageControl musst du nicht jedes einzelne Element ein- und auschalten, sondern kannst einfach die Seite wechseln.

[Francine1989]

Die einfachere Variante ist die von Philos.

Nein, das ist die aufwändige Variante.
Mit dem PageControl musst du nicht jedes einzelne Element ein- und auschalten, sondern kannst einfach die Seite wechseln.

Aber in meinem Fall musste ich nur ein einzelnes Element einschalten, und schon funktionierte es

[Michl]

In diesem Fall würde ich ebenfalls Theos Ratschlag unterstützen. Sämtliches Aus- und Einschalten der .visible würden mit dem TPageControl (oder wenn Du die Reiter nicht sehen willst, TNoteBook) für Dich entfallen...

[Philos]

Also die bessere Methode ist definitiv theo's. Aber ich wollte einfach dafür sorgen, dass auf die Frage, so wie sie gestellt wurde, auch zumindest eingegangen wird Ansonsten sind PageControl und Notebook natürlich vorzuziehen.