Alle Tabs eines PageControls schließen

[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;