如何隱藏TTabcontrol中的多個選項卡

Question

我的程序有三個下拉菜單和一個ttabcontrol，其中有5個選項卡。我需要知道的是如何隱藏所有選項卡並將其可見性設置回來，如果下拉菜單選擇了特定項目。 例如 我的下拉列表有索引項。 A，B，C，A + B，A + C TabControl有以下選項卡。 A B C 現在我需要隱藏所有標籤和取消隱藏標籤甲如果下拉已經選擇了或& B如果下拉被選擇爲A + B.

Answer 1

使用枚舉類型來做到這一點。您可以非常輕鬆地探索布爾操作。

TYPE 
TabControlTag = (A, B, C); 
TabTags = set of TabControlTag; 
TForm1=class(TForm) 
... 

實施

procedure TForm1.HideTabControl(Sender: TObject); 
{hide all tabItem in tabControl} 
var 
    i: integer; 
begin 
    for i := 0 to TabControl1.ComponentCount - 1 do 
     if TabControl1.Components[i] is TTabItem then 
     with TabControl1.Components[i] do 
     begin 
      visible := false; 
     end; 
end; 

如果你正在使用TCombobox的下拉列表中，使用OnChange事件

procedure TForm1.ComboBox1Change(Sender: TObject); 
var 
    Tabs: TabTags; 
begin 
    case ComboBox1.ItemIndex of 
     0: { A } Tabs := [A]; 
     1: { B } Tabs := [B]; 
     2: { C } Tabs := [C]; 
     3: { A+B } Tabs := [A,B]; 
     4: { A+C } Tabs := [A,C]; 
    end; 
    if A in Tabs then tabItem1.Visible:=true; 
    if B in Tabs then tabItem2.Visible:=true; 
    if C in Tabs then tabItem3.Visible:=true; 
end; 

一個非常靈活和可擴展的解決方案。

例如，使用TCheckbox

var 
    Tabs: TabTags; 
begin 
tabs:=[]; 
If checkBoxA.IsChecked then TabTags:= [A]; 
If checkBoxB.IsChecked then TabTags:= TabTags + [B];//OR boolean operations. Also allowed [A,B] * [A] which means AND, [A,B] - [A] which means NOR, 
If checkBoxC.IsChecked then Include(TabTags,C) 
if A in Tabs then tabItem1.Visible:=true; 
if B in Tabs then tabItem2.Visible:=true; 
if C in Tabs then tabItem3.Visible:=true; 
end