如何判断pagecontrol非激活标签页上的控件是否对用户可见

问题原因 #

VCL 原生的 Showing 属性仅校验控件本身及其所有父级控件的 Visible 属性是否为 True，而 PageControl 未激活的 TabSheet 本身的 Visible 属性不会被设置为 False，仅不会被渲染到界面上，因此读取按钮的 Showing 始终返回 True，无法满足需求。

解决方案 #

1. 场景专属快速判断 #

如果你明确知道按钮仅嵌套在 PageControl 的一级 TabSheet 中，可以直接校验所属 TabSheet 为激活状态，同时按钮自身可见即可：

// 需自行替换为你的控件、TabSheet、PageControl对应名称
function IsButtonVisible: Boolean;
begin
  Result := Button1.Visible and (PageControl1.ActivePage = TabSheet1);
end;

2. 通用全场景判断 #

适合多层容器嵌套（如多层PageControl、隐藏Panel等）的通用可见性判断，无需手动绑定容器关系：

function IsControlReallyVisible(AControl: TControl): Boolean;
var
  LParent: TWinControl;
begin
  Result := False;
  // 控件本身不可见直接返回
  if not AControl.Visible then Exit;
  
  LParent := AControl.Parent;
  while Assigned(LParent) do
  begin
    // 父容器为TabSheet时校验是否为所属PageControl的激活页
    if LParent is TTabSheet then
    begin
      if TTabSheet(LParent).PageControl.ActivePage <> TTabSheet(LParent) then
        Exit;
    end
    // 其余类型容器校验自身Visible属性
    else if not LParent.Visible then
      Exit;
      
    LParent := LParent.Parent;
  end;
  Result := True;
end;

调用方式：直接传入需要判断的控件即可，返回True代表控件对用户可见，False代表不可见：
IsControlReallyVisible(Button1)

内容的提问来源于stack exchange，提问作者tcxbalage