Tabsheet durchzählen

[Mitchl55]

Hallo,

ich habe ein PageControl mit mehreren Tabsheets, diese
möchte ich mir in einer For Next Schleife Variable [i]
nacheinander mit deren Namen anzeigen lassen.

bekomme jetzt den Showmessage String nicht hin:

showmessage(name vom tabsheet 1...x);

Delphi-Quellcode:

showmessage(Tabsheet[i].caption);

Danke & Gruß

Mitchl

[mkinzler]

.TabCount

[Mitchl55]

Versteh ich nicht ganz?

Delphi-Quellcode:

showmessage(Tabsheet[i].caption.TabCount);

zeigt mir den Namen des Tabsheets an??

Danke & Gruß

Mitchl

[CCRDude]

Posten des Fehlermeldung wär vielleicht angebracht.

[Mitchl55]

Ich möchte nur in einer For Next Schleife
alle Namen der jeweiligen TabSheets hintereinander als
Showmessage angezeigt haben!

Da gibt es keine vernünftige Fehlermeldung wenn
ich mir nicht vom i-ten Tabsheet den Namen anzeigen
lassen kann! Da weiß ich nicht wie ich das hinbekomme!


Danke & Gruß

Mitchl

[mkinzler]

Sorry heißt PageCount:

Delphi-Quellcode:

for i := 0 to PageControl.PageCount-1 do

[Mitchl55]

Danke, dieses PagControl hat mehrere Namen und die Versuche ich
mir nacheinander auszulesen.

Gruß

Mitchl

[mkinzler]

Delphi-Quellcode:

for i := 0 to PageControl.PageCount-1 do
    s := s + Tabsheet[i].caption + ' ';
showmessage( s);

[Mitchl55]

Danke, genau so hab ich es gerade probiert.

Aber warum kommt die Fehlermeldung

Undeclared identifier: 'Tabsheet'??

Gruß

Mitchl

[mkinzler]

Vielleicht

Delphi-Quellcode:

PageControl.Tabsheet[i].caption

?

[Mitchl55]

nö.... kann ich den die Caption des i-ten Tabsheets so auslesen?

schnall das nicht....

Gruß

Mitchl

[uwewo]

Hier auf dem Silbertablett

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var i : Integer;
begin
   with PageControl1 do
      for i := 0 to PageCount-1 do
      showmessage( Pages[i].caption);
end;

[Mitchl55]

Danke, das mit dem Silbertablett klappt,
wäre ich nie drauf gekommen. Falsche denkweise..... heul....

Danke an alle

viele Grüße

Mitchl