TabSheet에 이상한 문제가 있음

Question

PageControl에서 TabSheets로 작업하고 해당 표시 여부를 제어 할 때 이상한 동작을 극복했습니다. 간단한 예를 들어, 폼에 PageControl을 추가하고 해당 PageControl에 두 개의 TabSheet를 추가하고 각 TabSheet에 Label을 추가 한 다음 Forms OnCreate 이벤트를 할당하십시오.

는 한 OnCreate의 코드와 같은 것입니다 :

procedure TForm1.FormCreate(Sender: TObject); 

    function Cond1: Boolean; 
    begin 
    result := 1=1; 
    end; 

    function Cond2: Boolean; 
    begin 
    result := 2=2; 
    end; 

begin 
    TabSheet1.Visible := Cond1; 
    TabSheet1.TabVisible := Cond1; 
    if not (Cond1) then 
    if PageControl1.ActivePage = TabSheet1 then 
     PageControl1.ActivePage := TabSheet2; 
    TabSheet2.Visible := Cond2; 
    TabSheet2.TabVisible := Cond2; 
    if not(Cond2) then 
    if PageControl1.ActivePage = TabSheet2 then 
     PageControl1.ActivePage := nil; 
    ShowMessage(IntToStr(PageControl1.ActivePageIndex)); 
    //PageControl1.ActivePage.BringToFront; //uncomment to work properly 
end; 

당신이 볼 수 있듯이, 활성 페이지는 여전히 TabSheet1이지만, TabSheet2의 내용이 표시됩니다. BringToFront를 사용하면 모든 것이 예상대로 작동하지만 이것은 나에게 상당히 이상하게 보입니다.

아마도 이러한 PageControl을 사용하여 이러한 가시성을 제어하는 ​​더 좋은 방법이 있습니까?

PS : 나는 VCL을 사용하고,

Answer 1

이 TabSheet1.Visible 및 TabSheet2.Visible, 그 과제 엉망 탭 가시성에 할당을 제거 Firemonkey 없습니다.

begin 
// TabSheet1.Visible := Cond1; 
    TabSheet1.TabVisible := Cond1; 
    if not (Cond1) then 
    if PageControl1.ActivePage = TabSheet1 then 
     PageControl1.ActivePage := TabSheet2; 
// TabSheet2.Visible := Cond2; 
    TabSheet2.TabVisible := Cond2; 
    if not(Cond2) then 
    if PageControl1.ActivePage = TabSheet2 then 
     PageControl1.ActivePage := nil; 
    ShowMessage(IntToStr(PageControl1.ActivePageIndex)); 
end;