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

hda*_*ayi 3 delphi firemonkey delphi-xe6

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

我用来创建项目的代码:

tbi := TTabItem.Create(tbc);
tbi.Parent := tbc;
tbi.Index := tbc.TabCount - 1;
Run Code Online (Sandbox Code Playgroud)

如何删除这些标签项?

Pet*_*ter 8

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

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