Delphi-PRAXiS - Delphi Default TabSheet in PageControl

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Default TabSheet in PageControl (https://www.delphipraxis.net/65515-default-tabsheet-pagecontrol.html)

Default TabSheet in PageControl

Hallo,
jetzt mal ne einfache Frage.

wie kann ich zur Entwurfszeit festlegen, daß ein bestimmtes TabSheet eines PageControls beim Programmstart aktiv ist - unabhängig vom Zustand während der Entwurfszeit in dem das Projekt compiliert wurde.

Danke

E. B.

Re: Default TabSheet in PageControl

Zitat:

Zitat von EccoBravo

wie kann ich zur Entwurfszeit festlegen, daß ein bestimmtes TabSheet eines PageControls beim Programmstart aktiv ist - unabhängig vom Zustand während der Entwurfszeit in dem das Projekt compiliert wurde.

Du kannst dich nicht waschen, ohne dich nass zu machen.
Das Tabsheet, dass in [TPagecontrol].ActivePage drinsteht, ist die Defaultseite.
Da man zur Entwicklungszeit häufig mal die Seite wechselt und dann compiliert ohne zuvor
die "richtige" Seite eingestellt zu haben, sollte man die Startseite
im Programmcode setzen:

Delphi-Quellcode:

			procedure TForm1.FormCreate();

begin

   Pagecontrol1.ActivePage := TabListe;  // default seite

   // alternativ

   Pagecontrol1.ActivePageIndex := 0;

end;