Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Im TPageControl eine Seite unsichtbar machen


patmann2001 - Di 22.10.02 17:09
Titel: Im TPageControl eine Seite unsichtbar machen
Hallo
Ich habe ein TPageControl auf meiner Form. Ich möchte, das immer nur zwei von drei Seiten sichtbar sind, der Reiter meiner dritten Seite soll also mit verschwinden, nicht nur der Inhalt. Ich möchte aber nicht erst alles zur Laufzeit Createn sondern alles soll schon vorhanden sein. Wie geht sowas?

cu Patmann


DeCodeGuru - Di 22.10.02 17:25

probiers mal so:


Quelltext
1:
2:
3:
4:
5:
procedure TForm1.FormCreate(Sender: TObject);
begin
  TabSheet3.PageControl := nil;
  TabSheet3.Visible := False;
end;


zum Anzeigen dann so:


Quelltext
1:
2:
3:
4:
5:
procedure TForm1.Button1Click(Sender: TObject);
begin
  TabSheet3.PageControl := PageControl1;
  TabSheet3.Visible := True;
end;


patmann2001 - Di 22.10.02 22:09

Hey Danke 8)
Hat super geklappt

cu Patmann :lol: