如何檢查標籤頁都在TPageControl

Question

已經創建創建動態在運行時tabsheets和使用這段代碼放在裏面一個框架：

procedure TForm1.Button2Click(Sender: TObject); 
var 
    TabSheetG: TTabSheet; 
begin 
    TabSheetG := TTabSheet.Create(PageControl1); 
    TabSheetG.Caption := 'Tab Sheet green '; 
    TabSheetG.PageControl := PageControl1; 
    Frame3 := TFrame3.Create(nil); 
    Frame3.Parent := TabSheetG; 
    Frame3.Show; 
end; 

，現在我想知道，如果標籤已經創建並只是讓它激活時，我點擊相同的按鈕

Answer 1

添加TTabSheet類型的私有變量到您的類。它會自動初始化爲nil。

在OnClick事件處理程序中，測試變量是否爲nil。如果沒有，則創建標籤頁，否則使用現有的標籤頁。

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    if not Assigned(FMyTabSheet) then 
    FMyTabSheet := TTabSheet.Create(PageControl1); 
    FMyTabSheet.PageControl := PageControl1; 
    ... etc. 
    end; 
    PageControl1.ActivePage := FMyTabSheet; 
end;