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:

Delphi-Quellcode:

PageControl1.TabSheet1.TabVisible:=false;

bzw.

Delphi-Quellcode:

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:

Delphi-Quellcode:

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

oder

Delphi-Quellcode:

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

[Yadon]

Zitat:

Zitat von smart

Nur für die Anderen:

Es muss natürlich so aussehen:

Delphi-Quellcode:

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

oder

Delphi-Quellcode:

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:

Zitat von Yadon

Zitat:

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:

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 :mrgreen:

...:cat:...

[Yadon]

Zitat:

Zitat von sakura

Zitat:

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 :mrgreen:

...:cat:...

:wall: :wall: :wall: :wall: :wall: :wall: :wall:

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. :roll:

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 :gruebel: 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 :-D