Как проверить, если Tabsheet уже созданы в 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 в свой класс.

type 
    TForm1 = class(TForm) 
    .... 
    private 
    FMyTabSheet: TTabSheet; 
    end; 

Он будет автоматически инициализирован до 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;