自定义“组合”组件使用 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;

 

问题解决。

没有处理的效果更改后

posted @   海利鸟  阅读(960)  评论(1编辑  收藏  举报
编辑推荐:
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· .NET Core 托管堆内存泄露/CPU异常的常见思路
· PostgreSQL 和 SQL Server 在统计信息维护中的关键差异
· C++代码改造为UTF-8编码问题的总结
阅读排行:
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· 清华大学推出第四讲使用 DeepSeek + DeepResearch 让科研像聊天一样简单!
· 实操Deepseek接入个人知识库
· CSnakes vs Python.NET:高效嵌入与灵活互通的跨语言方案对比
· Plotly.NET 一个为 .NET 打造的强大开源交互式图表库
点击右上角即可分享
微信分享提示