Einzelnen Beitrag anzeigen

BerndS

Registriert seit: 8. Mär 2006
Ort: Jüterbog
491 Beiträge
 
Delphi 12 Athens
 
#5

AW: FMX TTabControl - TTabItem während der Laufzeit entfernen

  Alt 2. Sep 2022, 10:38
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;
  Mit Zitat antworten Zitat