在delphi中动态设置页面的可见属性

Question

我正在使用带有许多页面（AdvPage1、AdvPage2、AdvPage3...）的 TAdvToolBarPager。每个页面都包含许多编辑、导航器等。基于用户权限，我想约束属性，即我想为 ADMIN显示所有页面 (1,2,3)，但对于用户，我只想显示页面 (1,2) 或 (1)。

我可以使用下面给出的代码禁用所有编辑、导航器。有人可以帮助我如何根据约束/任何其他替代方法在 TAdvToolBarPager 中设置页面。提前致谢！

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

根据您对问题的 cmets 并假设管理页面始终是第三个，这个简化的过程应该可以满足您的需求：

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;