Alle Tabs eines PageControls schließen

[r2c2]

Den Code kann man aber noch verbessern:

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. Jedenfalls bakam ich sonst als die Nachricht, dass zwischendurch gepostet wurde