AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Seitenreiter bei TPageControl ausblenden?

Ein Thema von smart · begonnen am 26. Mär 2005 · letzter Beitrag vom 27. Mär 2005
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von smart
smart

Registriert seit: 19. Dez 2004
Ort: Bochum
1.266 Beiträge
 
Delphi 2007 Professional
 
#1

Seitenreiter bei TPageControl ausblenden?

  Alt 26. Mär 2005, 11:45
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!
Heike Kretschmann
  Mit Zitat antworten Zitat
Benutzerbild von fylo
fylo

Registriert seit: 18. Feb 2004
Ort: Rostock
155 Beiträge
 
Delphi 7 Personal
 
#2

Re: Seitenreiter bei TPageControl ausblenden?

  Alt 26. Mär 2005, 12:19
Hi versuch folgendes:
PageControl1.TabSheet1.TabVisible:=false; bzw.PageControl1.TabSheet1.TabVisible:=true;
have fun
fylo
  Mit Zitat antworten Zitat
Benutzerbild von smart
smart

Registriert seit: 19. Dez 2004
Ort: Bochum
1.266 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Seitenreiter bei TPageControl ausblenden?

  Alt 26. Mär 2005, 12:33
Ja sicher, TabVisible nicht Pages. Vielen Dank, fylo. Ich bin einfach nicht darauf gekommen.
Heike Kretschmann
  Mit Zitat antworten Zitat
Benutzerbild von smart
smart

Registriert seit: 19. Dez 2004
Ort: Bochum
1.266 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Seitenreiter bei TPageControl ausblenden?

  Alt 26. Mär 2005, 12:50
Nur für die Anderen:

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

PageControl1.Pages[0].TabVisible := True;
Heike Kretschmann
  Mit Zitat antworten Zitat
Yadon

Registriert seit: 13. Feb 2004
110 Beiträge
 
Delphi 5 Enterprise
 
#5

Re: Seitenreiter bei TPageControl ausblenden?

  Alt 26. Mär 2005, 13:47
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!
Yadon
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
 
Delphi XE2 Professional
 
#6

Re: Seitenreiter bei TPageControl ausblenden?

  Alt 26. Mär 2005, 14:22
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;
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#7

Re: Seitenreiter bei TPageControl ausblenden?

  Alt 26. Mär 2005, 14:23
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

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Yadon

Registriert seit: 13. Feb 2004
110 Beiträge
 
Delphi 5 Enterprise
 
#8

Re: Seitenreiter bei TPageControl ausblenden?

  Alt 26. Mär 2005, 14:30
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!
Yadon
  Mit Zitat antworten Zitat
Benutzerbild von smart
smart

Registriert seit: 19. Dez 2004
Ort: Bochum
1.266 Beiträge
 
Delphi 2007 Professional
 
#9

Re: Seitenreiter bei TPageControl ausblenden?

  Alt 26. Mär 2005, 14:39
Ich bedanke mich herzlichst für Eure zahlreichen und schnellen Antworten.
Heike Kretschmann
  Mit Zitat antworten Zitat
Benutzerbild von Delphi-Freak
Delphi-Freak

Registriert seit: 26. Sep 2004
Ort: Wien Nähe (Österreich)
321 Beiträge
 
Delphi 2006 Architect
 
#10

Re: Seitenreiter bei TPageControl ausblenden?

  Alt 27. Mär 2005, 16:46
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
Gerhard Pfister
*
»To him who loves us and has freed us from our sins by his blood [...] be glory and power for ever and ever! Amen.« (Revelation*1,*5?6)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz