如何在VCL样式表组件属性变更时通知关联自定义控件更新？

你的思路是可行的，维护关联控件列表是VCL环境下实现样式全局更新的常规做法，结合VCL的组件生命周期机制还能进一步优化内存安全性，以下是具体实现步骤：

1. 样式表组件维护关联控件列表 #

在自定义样式表组件中添加TObjectList<TMyCustomControl>（推荐用类型安全的TObjectList而非TList）存储关联控件，注意将OwnsObjects设为false——控件的生命周期由窗体管理，避免样式表误释放控件。

// 样式表组件头文件声明
class TMyStyleSheet : public TComponent
{
__published:
    __property TColor TextColor = {read=FTextColor, write=SetTextColor};
    __property TFont* TextFont = {read=FTextFont, write=SetTextFont};
private:
    TObjectList<TMyCustomControl>* FControlList;
    TColor FTextColor;
    TFont* FTextFont;
    void __fastcall SetTextColor(TColor Value);
    void __fastcall SetTextFont(TFont* Value);
public:
    __fastcall TMyStyleSheet(TComponent* Owner);
    __fastcall ~TMyStyleSheet();
    void __fastcall RegisterControl(TMyCustomControl* Control);
    void __fastcall UnregisterControl(TMyCustomControl* Control);
    void __fastcall Notification(TComponent* AComponent, TOperation Operation) override;
};

2. 自定义控件与样式表双向绑定 #

在自定义控件（如自定义标签、编辑框）中添加StyleSheet属性，在setter方法中完成双向绑定：移除旧样式表的关联，添加到新样式表的列表，并立即应用样式。

// 自定义控件的StyleSheet属性setter
void __fastcall TMyCustomControl::SetStyleSheet(TMyStyleSheet* Value)
{
    if (FStyleSheet != Value)
    {
        // 从旧样式表中移除自身
        if (FStyleSheet)
            FStyleSheet->UnregisterControl(this);
        FStyleSheet = Value;
        // 添加到新样式表的关联列表
        if (FStyleSheet)
            FStyleSheet->RegisterControl(this);
        // 立即应用最新样式
        ApplyStyle();
    }
}

3. 样式表属性变更时通知控件更新 #

在样式表的属性setter中，当属性值发生变化时，遍历关联控件列表，调用每个控件的样式应用方法：

void __fastcall TMyStyleSheet::SetTextColor(TColor Value)
{
    if (FTextColor != Value)
    {
        FTextColor = Value;
        // 遍历所有关联控件，触发样式更新
        for (int i = 0; i < FControlList->Count; ++i)
        {
            FControlList->Items[i]->ApplyStyle();
        }
    }
}

4. 自定义控件的样式应用与重绘 #

在自定义控件中实现ApplyStyle方法，从样式表读取属性并更新自身UI，最后调用Invalidate()触发重绘：

void __fastcall TMyCustomControl::ApplyStyle()
{
    if (!FStyleSheet) return;
    
    // 从样式表同步属性
    this->Font->Assign(FStyleSheet->TextFont);
    this->Color = FStyleSheet->ControlColor;
    this->Font->Color = FStyleSheet->TextColor;
    
    // 触发控件重绘
    this->Invalidate();
}

5. 优化内存安全：利用VCL的Notification机制 #

为避免控件销毁后样式表列表中残留悬空指针，让样式表重写Notification方法，自动移除被销毁的控件：

void __fastcall TMyStyleSheet::Notification(TComponent* AComponent, TOperation Operation)
{
    TComponent::Notification(AComponent, Operation);
    if (Operation == opRemove)
    {
        TMyCustomControl* ctrl = dynamic_cast<TMyCustomControl*>(AComponent);
        if (ctrl && FControlList->Contains(ctrl))
        {
            FControlList->Remove(ctrl);
        }
    }
}

总结 #

你最初的思路是正确的，维护关联控件列表是VCL中实现全局样式更新的高效方式。结合VCL的Notification机制后，能避免内存泄漏和悬空指针问题，让整个实现更健壮。

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