On Button click close all TPageControl TTabSheet`s

[Sauerkrautpoet]

Zitat von marabu:

Try this:

Delphi-Quellcode:

procedure TWebForm.CloseAllButtonClick(Sender: TObject);
begin
  with PageControl do
    while PageCount > 0 do
      ActivePage.Free;
end;

marabu

ich erweitere die fragestellung um die tatsache, dass ich nur einen gezielten tab schließen will.
ich habs schon mit

Delphi-Quellcode:

 
      pagecontrol.pages[tabindex].destroy;
      //beziehungsweise
      pagecontrol.pages[tabindex].free;

versucht aber hmpf...nix da. knallt mir die anwendungen speicherverletzungen ums ohr.