Delphi组件开发：ComponentState属性管控及设计时组件访问问题

问题背景 #

基于AlmediaDev的TscPanel和GlyphIcons封装类似TLabeledEdit的组件TImprovedFluentTopBar，期望在设计时添加组件时检查三个条件：

• 是否处于设计时（通过csDesigning in ComponentState判断）
• 组件所有者必须是TForm（不能添加到其他面板等容器）
• 当前表单上已存在启用阴影效果的TscStyledForm

实际测试发现ComponentState为空，无法正确判断设计时状态，同时有疑问：设计时能否访问并修改表单上其他组件的属性（比如激活未启用阴影的TscStyledForm）？

附相关代码 #

构造函数代码 #

constructor TImprovedFluentTopBar.Create(AOwner: TComponent);
begin

  ShowMessage('Creating');
  if (csDesigning in ComponentState) then     // Pesquisar sobre isso aqui
  begin
    ShowMessage('Checking');
    if not (AOwner is TForm) then
    begin
      raise Exception.Create('Owner must be a TForm.');
    end;

    var Found: Boolean := False;
    for var I:Integer := 0 to TForm(AOwner).ComponentCount - 1 do   // Cast de AOwner para TForm. Acessa a componentCount do TForm.
    begin
      if TForm(AOwner).Components[I] is TImprovedFluentTopBar then
      begin
        raise Exception.Create('TImprovedFluentTopBar is already on the form.');
      end
      else if TForm(AOwner).Components[I] is TscStyledForm then
      begin
        Found := True;
      end;
    end;

    if not Found then
    begin
      raise Exception.Create('TscStyleControls not found in current TForm');
    end;
  end else begin
     ShowMessage(ComponentStateAsString(ComponentState));
  end;

  inherited Create(AOwner);
  Self.Caption := '';
  Self.DragForm := True;
  FCloseButton := TscGPGlyphButton.Create(Self);
  FCloseButton.Align := alRight;
  FCloseButton.SetBounds(20, 60, 20, 20);
  FMinimizeButton := TscGPGlyphButton.Create(Self);
  FMinimizeButton.Align := alRight;
  FMinimizeButton.SetBounds(20, 20, 20, 20);
end;

ComponentStateAsString函数代码 #

function ComponentStateAsString(ACS: TComponentState): String;
begin
  Result := 'States: ';
  if (csAncestor in ACS) then
  begin
    Result := Result + 'csAncestor ';
  end;

  if (csDesigning in ACS) then
  begin
    Result := Result + 'csDesigning ';
  end;

  if (csDestroying in ACS) then
  begin
    Result := Result + 'csDestroying ';
  end;

  if (csFixups in ACS) then
  begin
    Result := Result + 'csFixups ';
  end;

  if (csFreeNotification in ACS) then
  begin
    Result := Result + 'csFreeNotification ';
  end;

  if (csInline in ACS) then
  begin
    Result := Result + 'csInline ';
  end;

  if (csLoading in ACS) then
  begin
    Result := Result + 'csLoading ';
  end;

  if (csReading in ACS) then
  begin
    Result := Result + 'csReading ';
  end;

  if (csWriting in ACS) then
  begin
    Result := Result + 'csWriting ';
  end;

  if (csDesignInstance in ACS) then
  begin
    Result := Result + 'csDesignInstance ';
  end;
end;

问题解答 #

1. ComponentState为空的原因及管控方 #

原因

你的代码中先判断ComponentState再调用inherited Create(AOwner);，而Delphi的VCL组件框架是在基类TComponent.Create方法中完成ComponentState的初始化工作。此时组件还未完成基类初始化，ComponentState自然为空。

管控方

ComponentState的各个标志由Delphi VCL组件框架和IDE设计器共同管控：

• 框架在组件生命周期的不同阶段（如构造、加载、销毁）自动添加/移除对应标志（如csLoading、csDestroying）
• csDesigning等设计时专属标志，由IDE在设计模式创建组件时，通过上下文注入设置；运行时创建组件则不会包含该标志

2. 设计时能否访问并修改其他组件属性 #

可以，但需注意时机和上下文：

• 必须在组件完成基类初始化后（即调用inherited Create后）判断设计时状态，确保能正确获取到表单上的其他组件
• 只要目标组件是表单的子组件（可通过Owner的Components列表遍历或FindComponent方法获取），且属性为published（设计时可见），即可直接修改其属性
• 修改后IDE会自动识别组件状态变化，标记表单为需要保存

修正后的构造函数代码 #

constructor TImprovedFluentTopBar.Create(AOwner: TComponent);
begin
  inherited Create(AOwner); // 先完成基类初始化，确保ComponentState被正确设置
  ShowMessage('Creating');

  if (csDesigning in ComponentState) then
  begin
    ShowMessage('Checking');
    if not (AOwner is TForm) then
    begin
      raise Exception.Create('Owner must be a TForm.');
    end;

    var Found := False;
    var FormOwner := TForm(AOwner);
    for var I := 0 to FormOwner.ComponentCount - 1 do
    begin
      var Comp := FormOwner.Components[I];
      if Comp is TImprovedFluentTopBar then
      begin
        // 排除自身，因为刚创建的组件已被加入Owner的Components列表
        if Comp <> Self then
          raise Exception.Create('TImprovedFluentTopBar is already on the form.');
      end
      else if Comp is TscStyledForm then
      begin
        // 示例：启用TscStyledForm的阴影效果
        TscStyledForm(Comp).ShadowEnabled := True;
        Found := True;
      end;
    end;

    if not Found then
      raise Exception.Create('TscStyleControls not found in current TForm');
  end
  else
  begin
    ShowMessage(ComponentStateAsString(ComponentState));
  end;

  Self.Caption := '';
  Self.DragForm := True;
  FCloseButton := TscGPGlyphButton.Create(Self);
  FCloseButton.Align := alRight;
  FCloseButton.SetBounds(20, 60, 20, 20);
  FMinimizeButton := TscGPGlyphButton.Create(Self);
  FMinimizeButton.Align := alRight;
  FMinimizeButton.SetBounds(20, 20, 20, 20);
end;

修正点说明 #

• 将inherited Create(AOwner);移至代码最开头，确保ComponentState被框架初始化
• 检查重复组件时排除自身，避免刚创建的组件被误判为已存在
• 添加了修改TscStyledForm阴影属性的示例代码

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