FMX TTabControl - TTabItem während der Laufzeit entfernen

[BerndS]

Das BeginUpdate/EndUpdate würde ich noch verschieben, damit es nur einmal aufgerufen wird.

Delphi-Quellcode:

if ObjektFrame.TabControlKfzSparte.TabCount >= 0 then
begin
  ObjektFrame.TabControlKfzSparte.BeginUpdate;
  try
    x:= ObjektFrame.TabControlKfzSparte.TabCount -1;
    while ObjektFrame.TabControlKfzSparte.TabCount -1 >= 0 do
    begin
       ObjektFrame.TabControlKfzSparte.Delete(x);
       dec(x,1);
    end;
  finally
    ObjektFrame.TabControlKfzSparte.EndUpdate;
  end;
end;