TabSheets zur Laufzeit entfernen & speicher wieder freigeben

[KH82]

Hi,

ich habe TabSheets auf einem PageControl zur Laufzeit erstellt und möchte sie nun auch wieder entfernen. Habe allerdings keine Ahnung wie.

Folgendermaßen erstelle ich die TabSheets:

Code:

for i := 0 to (SpEd_AnzahlZustand.Value)-4 do
    begin
    with PageControl1 do
      Tab:= TTabSheet.Create(Self);
      with  Tab do
      begin
        PageControl := PageControl1;
        TabVisible := true;
        Name := 'Tab_' + IntToStr(PageIndex+4);
        if (PageIndex+1) < (SpEd_AnzahlZustand.Value) then
          Caption := 'Q' + IntToStr(PageIndex)
        else
          Caption := 'Qe';
      end;

Hat jemand eine Idee?

Gruß
Kristin

[nailor]

erst mal fällt mir auf, dass du dir gar keine referenz auf dein tabsheet sicherst! wenn du eine solche hättest, könntest du einfach per "referenz.DESTROY" das objekt zerstören. dabei nur darauf achten, dass nicht aus einer eigenen Methode heraus das destroy aufgerufen wird, aber das ist bei einem Tabsheet ja aher unwahrscheinlich.

[KH82]

Naja, die Frage ist ja, wie ich ne Referenz abspeichern soll, da ich die Anzahl der TabSheets vorher ja nicht kenne. Und dafür ne Liste anzulegen ist dann vielleicht doch ein wenig übertrieben, oder?

Code:

with PageControl1 do
begin
    with TTabSheet(FindComponent('Tab_' + inttostr(j))) do
    begin
       Free;
    end;
end;

allerdings passiert hier nich wirklich viel Aber ist das von der Idee her richtig oder völlig in die falsche Richtung gedacht?

[KH82]

Ok, ich hab weiter rum probiert und nun nur noch die Frage, ob Komponenten auf den einzelnen TabSheets automatisch mit freigegeben werden, oder ob ich diese ebenfalls mit Free wieder Frei geben muss?

Folgender Code übernimmt nun das löschen:

Code:

 if SpEd_AnzahlZustand.Value < PageControl1.PageCount then
 begin
   temp:= PageControl1.PageCount;
   for j:= temp-1 downto (SpEd_AnzahlZustand.Value) do
   with PageControl1 do
     self.PageControl1.Pages[j].Free;
 end;

[SirThornberry]

Bei Freigabe des Tabsheets werden nur die Komponenten freigegeben die als Owner dieses Tabsheet haben. Wenn du zum Beispiel einen Button darauf hast und beim erzeugen
"button := Tbutton.Create(MyTabsheet)"
angegeben hast dann sollte der button mit freigegeben werden wenn das Tabsheet freigegeben wird