自定义“组合”组件使用 VCL Style
这类组件继承自“TwinControl”或其子类如“TCustomControl”，其实大多数特性都已经继承过来了，但是有个问题，背景不能应用属性。
如：
我最开始的想法是 用主要窗体背景Color替换控件窗体的Color；
constructor TLyStateLabel.Create(AOwner: TComponent);
begin
…
self.Color:=AOwner.Color;
…
end;
并且重载 procedure Paint; virtual;
结果没有效果。
后来想参见Delphi XE2自己的组合组件的写法，看了好多，就一个简单的问题（就没有耐心），那么完整的代码……，看了5~6个小时，也没有太多头绪，后来看看Rz的代码实现（两个方案实现有些区别），也没有太多头绪，他们毕竟都有各自的体系。
但我认为开始的方向是没有太多错误的。
一天后决定还是使用原来的方法，不过改改，仍旧放在Create里面；
if TStyleManager.Enabled then
begin
LColor := StyleServices.GetStyleColor(TStyleColor.scWindow);
if (Self.Color <> LColor) then
begin
Self.Color := LColor;
// Invalidate;
end;
end;
问题解决。
摘自 海利鸟
补充：软件开发 , Delphi ,
