如何在运行时从ttabcontrol中删除ttabitem - FireMonkey

Question

我在运行时向TTabControl添加了一些TTabItem.但我不能删除它们.

我用来创建项目的代码:

tbi := TTabItem.Create(tbc);
tbi.Parent := tbc;
tbi.Index := tbc.TabCount - 1;

如何删除这些标签项？

Answer 1

你可以继续直接打电话给tbi.DisposeOf或tbc.Tabs[ItemIndex].DisposeOf.

调用TTabItem.DisposeOf将运行析构函数代码,确保从内部选项卡列表中清除.