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

[Yadon]

Zitat:

Zitat von Delphi-Freak

Mir ist da noch was aufgefallen:
sollte man mit i nicht bei 0 beginnen?
...
(PageControll.Pages beginnt ja bei 0 :gruebel: oder sonst müsste man die for-Schleife bis PageControl1.PageCount laufen lassen)...

Ja, da hast Du Recht - die Zählung von Pages beginnt bei 0.

Ja, Du hast auch Recht bei i := 0 :roll: - nur dann, wenn i bei 0 beginnt, veschwinden alle Reiter. Das war die Macht der Gewohnheit, ich schaffe mir meist Situationen, bei denen alle Reiter bis auf den ersten verschwinden müssen. Und so schreiben meinen dummen Finger das schon automatisch. :pale: