Page Control

[Joergie]

Hallo, ich erzeuge eine Dynamisch page control und setze nacheinander einzelne Seiten auf der.
Wie kann ich die gerade ausgewählte Seite (TapSheet) wieder löschen?

[toms]

Hi,

So geht's:
Pagecontrol1.ActivePage.Free;

[ipworks]

Sers,
hier das Erstellen von TTabSheets

Delphi-Quellcode:

//...
const
....
var
mynewtab: TTabSheet;
x: integer;
begin
    mynewtab:=TTabSheet.Create(Self);
    mynewtab.PageControl := PageControl1;
    mynewtab.name:=smc(Listview2.Items[cindex].caption);
    ....
end;

Und die Freigabe:

     with TTabSheet(FindComponent({Name der Komponenten})) do free; Hoffe es hilft...

Das Erstellen der TPageControl geht analog zur Erstellen der TabSheets, nur die properties müssen natürlich anders gesetzt werden...
have fun with the details...
Peter

[ipworks]

Oooops..sorry

war ein Ausschnitt aus meinem Code...
...muss heissen:

Delphi-Quellcode:

//...
const
....
var
mynewtab: TTabSheet;
x: integer;
begin
    mynewtab:=TTabSheet.Create(Self);
    mynewtab.PageControl := PageControl1;
    mynewtab.name:={Name};
    ....
end;