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;