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

[r2c2]

Zitat:

Zitat von barf00s

..., aber es wird dann vllt der speicher nicht freigegeben und kann so zu memleaks führen </klugscheiß>

und ganau das würde ich als "unsicher" bezeichnen. :mrgreen:

mfg

Christian

[Treffnix]

Zitat:

Zitat von 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ß>

:gruebel: afaik prüft free nur ob das Objekt überhaupt noch assigned ist und ruft dann destroy auf. Die Deinitialisierung läuft komplett im Destroy ab. Das einzige was bei Destroy passieren kann, ist, dass du ein Objekt versuchst freizugeben, das bereits nil ist und dann ne Exception kassierst. Wenn du deine Objekte im Griff hast dürfte das aber nicht passieren.

[BenjaminH]

Zitat:

Zitat von r2c2

Werden die Tabs denn dann noch vom PageControl gefreed, wenn sie ausm PageControl entfernt sind?

Ich geh davon aus, schließlich lasse ich das eigentliche Parent unangetastet!

[jfheins]

Zitat:

Zitat von 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ß>

Also, das ist jawohl Quatsch.

Free ist in Verbindung mit FreeAndNil() ein bisschen sicherer, weil dann eineige AV's verhindert werden. Kurz der Quellcode von Free:

Delphi-Quellcode:

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

Destroy ist der Destruktor, der die ganzen Objekte usw. freigibt.

So, das musste mal gesagt werden ;)

[r2c2]

Zitat:

Zitat von BenjaminH

Zitat:

Zitat von r2c2

Werden die Tabs denn dann noch vom PageControl gefreed, wenn sie ausm PageControl entfernt sind?

Ich geh davon aus, schließlich lasse ich das eigentliche Parent unangetastet!

Hm. Keine Ahnung. Du tastest es nicht an. Vielleicht aber indirekt doch. Ich weiß nicht, was das nillen noch so auslöst. Ich hab momentan auch keine Lust jetzt nachzugucken, was beim Ändern der property geschieht. Wenn außer dem nillen des Pointers sonst nix passiert is alles ok, es könnte aber sein, dass damit auch Parent/Owner geändert wird!

mfg

Christian

[Khabarakh]

Zitat:

Zitat von r2c2

Zitat:

Zitat von BenjaminH

Zitat:

Zitat von r2c2

Werden die Tabs denn dann noch vom PageControl gefreed, wenn sie ausm PageControl entfernt sind?

Ich geh davon aus, schließlich lasse ich das eigentliche Parent unangetastet!

Hm. Keine Ahnung. Du tastest es nicht an. Vielleicht aber indirekt doch. Ich weiß nicht, was das nillen noch so auslöst. Ich hab momentan auch keine Lust jetzt nachzugucken, was beim Ändern der property geschieht. Wenn außer dem nillen des Pointers sonst nix passiert is alles ok, es könnte aber sein, dass damit auch Parent/Owner geändert wird!

mfg

Christian

Ich habe mal nachgeschaut: TTabSheet.PageControl hat eine write-Methode. Diese ruft RemovePage des bisherigen PageControls auf, diese wiederum entfernt das Sheet aus der FPages-Liste. Das ist aber nur eine TList, keine TObjectList, also sollte das Sheet trotzdem entfernt werden. Verlassen würde ich mich aber nicht darauf :zwinker: .

[barf00s]

im obersten object TObject ist das vllt so ~sigh~
dann frag ich mich wozus noch derartige functionen wie FreeInstance, CleanupInstance & co gibt </rhetorisch frag>

ich halt mich da raus - denk doch was du willst

[phlux]

@r2c2: ich hatte es in ne repeatschleife gepackt weil ich dachte downto geht nicht mehr in delphi ;) wars dann step was nicht mehr ging :gruebel:

[barf00s]

downto geht in delphi noch genauso wie in turbopasal auch

[r2c2]

Zitat:

Zitat von phlux

@r2c2: ich hatte es in ne repeatschleife gepackt weil ich dachte downto geht nicht mehr in delphi ;) wars dann step was nicht mehr ging :gruebel:

Jo! downto gibts noch, step glaub ich nicht mehr...

mfg

Christian

[barf00s]

step gabs in Pascal/Delphi NOCH NIE :) das ein schlüsselwort aus dem *Basic* wortschatz

[Sharky]

Hmmmm....

Was hat das denn jetzt alles mit dem Thread zu tun? :gruebel: