Alle Tabs eines PageControls schließen

[kingflo]

Hallo ich möchte gans gerne alle Tabs meines Page controls schließen bis auf das erste Tab.

Ich hatte da auch was gemacht und das funzt nicht ich bekomme dann einen Zugriffsfehler aber ich weiß nicht warum.

Eigentlich müsste das so funktionieren

Delphi-Quellcode:

begin
 // don't close the first tab
 PageControl3.ActivePageIndex:=PageControl3.PageCount-1;
 while PageControl3.ActivePageIndex > 0 do
 begin
 if PageControl3.ActivePageIndex > 0 then
 begin
    if PageControl3.ActivePage.Controls[0] is TSynEdit then
    begin
      // Free
      (TSynEdit(PageControl3.ActivePage.Controls[0])).free;
      HTMLEDIT := nil;
      // Free active Tab
      PageControl3.ActivePage.Free;
    end;
    PageControl3.ActivePageIndex:=PageControl3.ActivePageIndex-1;
  end;
  end;
  PageControl3Change(html);
end;

[phlux]

:hi: hi!

warum machst du es dir so umständlich, würds nicht auch so gehn?

Delphi-Quellcode:

var
  i: Integer;

begin
  i := PageControl1.PageCount -1;
  If i <= 0 then exit;
  repeat
    PageControl1.Pages[i].Destroy;
    Dec(i, 1);
  until PageControl1.PageCount = 1;
end;

Natürlich musst du dein PageControl anpassen ;)
Durch aufrufen von Destroy werden alle auf der Seite des PageControl abgelegten Kompos gleich mit zersört/speicher freigegeben.

mfg phlux :hi:

[kingflo]

mmmm stimmt so gehts natürlich auch danke

[barf00s]

NIEMALS!!!! .Destroy direkt aufrufen -

[phlux]

stimmt ersetze destroy durch free ;)

[Treffnix]

Zitat:

Zitat von barf00s

NIEMALS!!!! .Destroy direkt aufrufen -

:gruebel: Warum nicht? Klar ist Free sicherer, aber NIEMALS?????

[BenjaminH]

Also für noch besser halte ich es die Tabs nicht zu löschen, sondern sie bestehen zu lassen und sie nur aus dem PageControl zu entfernen:

Delphi-Quellcode:

var
  i: Integer;

begin
  i := PageControl1.PageCount -1;
  If i <= 0 then exit;
  repeat
    PageControl1.Pages[i].PageControl:=nil;
    Dec(i, 1);
  until PageControl1.PageCount = 1;
end;

[r2c2]

Den Code kann man aber noch verbessern:

Zitat:

Zitat von phlux

Delphi-Quellcode:

var
  i: Integer;
begin
  i := PageControl1.PageCount -1;
  If i <= 0 then exit; // kannst du dir bei ner for-Version sparen
  repeat
    PageControl1.Pages[i].Destroy; // besser Free nehmen, is sicherer
    Dec(i, 1); // die 1 kannst du dir sparen, das is default
  until PageControl1.PageCount = 1;
end;

ich würde das so machen:

Delphi-Quellcode:

var
  i: Integer;
begin
  for i := PageControl1.PageCount -1 downto 1 do
  begin
    PageControl1.Pages[i].Free;
  end;
end;

mfg

Christian

//Edit: Hilfe. Ich bin ja viel zu spät! Ich dachte DP hätte n eingebauten "Schutz" gegen sowas. :gruebel: Jedenfalls bakam ich sonst als die Nachricht, dass zwischendurch gepostet wurde

[barf00s]

Free is nich sicherer als Destroy

aber Free sorgt dafür das alle möglichen speicherbereiche und deinitialisierungs routinnen vom object aufgerufen werden und als letztes .Destroy aufruft
- ums mal ganz einfach auszudrücken

sicher könnte man .destroy auch direkt aufrufen, aber es wird dann vllt der speicher nicht freigegeben und kann so zu memleaks führen </klugscheiß>

[r2c2]

Zitat:

Zitat von BenjaminH

Also für noch besser halte ich es die Tabs nicht zu löschen, sondern sie bestehen zu lassen und sie nur aus dem PageControl zu entfernen:

Delphi-Quellcode:

var
  i: Integer;

begin
  i := PageControl1.PageCount -1;
  If i <= 0 then exit;
  repeat
    PageControl1.Pages[i].PageControl:=nil;
    Dec(i, 1);
  until PageControl1.PageCount = 1;
end;

Du hällst es für besser Speicherleichen zu produzieren? :gruebel: Genau das machst du damit nämlich IMHO.
Werden die Tabs denn dann noch vom PageControl gefreed, wenn sie ausm PageControl entfernt sind?

mfg

Christian