Tabsheet durchzählen

[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;