Seitenreiter bei TPageControl ausblenden?

[smart]

Wie lassen sich die Seitenreiter bei TPageControl ausblenden?

Delphi-Quellcode:

Var I : Integer;
begin
 with PageControl1.Pages[0] do
  For I := 0 to ControlCount-1 do
   Controls[I].Visible := False;
end;

geht nicht!

[fylo]

Hi versuch folgendes:
PageControl1.TabSheet1.TabVisible:=false; bzw.PageControl1.TabSheet1.TabVisible:=true;

[smart]

Ja sicher, TabVisible nicht Pages. Vielen Dank, fylo. Ich bin einfach nicht darauf gekommen.

[smart]

Nur für die Anderen:

Es muss natürlich so aussehen:
PageControl1.Pages[0].TabVisible := False; oder

PageControl1.Pages[0].TabVisible := True;

[Yadon]

Zitat von smart:

Nur für die Anderen:

Es muss natürlich so aussehen:
PageControl1.Pages[0].TabVisible := False; oder

PageControl1.Pages[0].TabVisible := True;

Mit dem Code blendest Du aber nur den ersten Seitenreiter des PageControls aus. Alle Seitenreiter werden so ausgeblendet:

Delphi-Quellcode:

   for i := 1 to PageControl1.PageCount - 1 do
   begin
      PageControl1.Pages[0].TabVisible := False;
   end;

Schöne Ostern!

[Helmi]

Zitat von Yadon:

Zitat von smart:

Mit dem Code blendest Du aber nur den ersten Seitenreiter des PageControls aus. Alle Seitenreiter werden so ausgeblendet:

Delphi-Quellcode:

   for i := 1 to PageControl1.PageCount - 1 do
   begin
      PageControl1.Pages[0].TabVisible := False;
   end;

Schöne Ostern!

Muss das nicht so heissen:

Delphi-Quellcode:

   for i := 1 to PageControl1.PageCount - 1 do
   begin
      PageControl1.Pages[i].TabVisible := False;
   end;

[sakura]

Zitat von Helmi:

Muss das nicht so heissen:

Delphi-Quellcode:

   for i := 1 to PageControl1.PageCount - 1 do
   begin
      PageControl1.Pages[i].TabVisible := False;
   end;

Ja

......

[Yadon]

Zitat von sakura:

Zitat von Helmi:

Muss das nicht so heissen:

Delphi-Quellcode:

   for i := 1 to PageControl1.PageCount - 1 do
   begin
      PageControl1.Pages[i].TabVisible := False;
   end;

Ja

......

Ich dachte, daß hätte ich geschrieben; als ich fertig war, habe ich es 'ne Weile angeschaut, weil irgendwas komisch aussah. Nun weiß ich, was mich irritiert hat.

Schöne Ostern!

[smart]

Ich bedanke mich herzlichst für Eure zahlreichen und schnellen Antworten.

[Delphi-Freak]

Delphi-Quellcode:

   for i := 1 to PageControl1.PageCount - 1 do
   begin
      PageControl1.Pages[i].TabVisible := False;
   end;

Mir ist da noch was aufgefallen:
sollte man mit i nicht bei 0 beginnen?
Also so:

Delphi-Quellcode:

   for i := 0 to PageControl1.PageCount - 1 do
   begin
      PageControl1.Pages[i].TabVisible := False;
   end;

(PageControll.Pages beginnt ja bei 0 oder sonst müsste man die for-Schleife bis PageControl1.PageCount laufen lassen)

Schöne Grüße und (etwas verspätet) ein schönes Osterfest,
Delphi-Freak