Alle tabs einer PageControl zerstören

[Andreas L.]

Hi,
ich habe ein PageControl auf welchen während der Laufzeit unterschiedlich viele Tabs erstellt werden. Jetzt möchte ich alle Tabs zerstören.

(PageControl3.ActivePage.Controls[0] as TTabSheet).destroy; ...nützt nur bei dem aktiven Item was (ist ja auch logisch)!

Wie kriege ich es hin das alle Tabs zerstört werden?

Greetz und thx

[GuenterS]

Wenn FPageControl die PageControl ist und i eine Integer Variable

Delphi-Quellcode:

for i := FPageControl.PageCount -1 downto 0 do
   FPageControl.Pages[i].Free;

[Andreas L.]

Danke für deine Antwort. Dein Code funzt. Jetzt hab ich noch ein kleines Problem. Wie lösche ich das momentan aktivierte Tab?

(PageControl3.ActivePage.Controls[0] as TTabSheet).destroy; Ich musste leider feststellen das dieser Code nicht funktioniert!

Greetz und thx

[GuenterS]

FPageControl.ActivePage.Free;

[Andreas L.]

Ok geht. Danke!!!