デルファイのページの可視プロパティを動的に設定

Question

多くのページ（AdvPage1、AdvPage2、AdvPage3 ...）でTAdvToolBarPagerを使用しています。各ページには多くの編集、ナビゲータなどがあります。つまり、ADMINではすべてのページ（1,2,3）を表示したいのですが、USERの場合はページ（1,2）または（1）のみを表示したいと考えています。

以下のコードを使用して、すべての編集、ナビゲータを無効にすることができます。いくつかの方法は、TAdvToolBarPager visbleのページを制約に基づいてどのように設定するかを支援することができます。これを達成するための他の方法。前もって感謝します！

Procedure SetForm(Form: TForm; enabled: Boolean); 
var PropInfo : PPropInfo; 
i  : Integer; 
begin 
    for i := 0 to Pred(Form.ComponentCount) do 
    begin 
    if (Form.Components[i] is TDBEdit) or (Form.Components[i] is DBNavigator) then 
    begin 
    PropInfo := GetPropInfo(Form.Components[i].ClassInfo, 'Enabled'); 
    if PropInfo <> nil then 
     SetOrdProp(Form.Components[i], PropInfo, Ord(enabled)); 
    end; 
    end; 
end; 

Answer 1

質問へのご意見によると、管理ページは常に三番目であると仮定すると、この単純化された手順は、あなたが欲しいものを行う必要があります。

Procedure SetForm(Form: TForm; enabled: Boolean); 
var 
    i: Integer; 
begin 
    for i := 0 to Form.ComponentCount - 1 do begin 
    if (Form.Components[i] is TAdvToolBarPager) then begin 
     TAdvToolBarPager(Form.Components[i]).AdvPages[2].TabVisible := enabled; 
     Exit; // probably only one AdvToolBarPager available 
    end; 
    end; 
end;