德尔福：航空玻璃标签 [关闭]答案

【问题标题】：Delphi: Aero-Glass Tabs [closed]德尔福：航空玻璃标签 [关闭]
【发布时间】：2012-02-03 22:51:37
【问题描述】：

我想要像这里这样的标签（都是玻璃的）：

A program 是用 Delphi 或 C++ Builder 编写的。我在 Winspector Spy & Window Detective 中找不到一类标签。

我知道一个非常好的组件 - rkAeroTabs，但不幸的是它没有显示带有玻璃的活动标签（这就是我需要的），并且其他标签不是完全玻璃的：
_{（来源：rmklever.com）}

有人知道如何获得这些玻璃标签吗？谢谢。

【问题讨论】：

你引用的组件有一个“LevelTabActive”属性，应该设置活动标签的不透明度。
我是关于 rkAeroTabs 的。有一个错误的标题，rkAeroTabs 组件在图片上，而不是 rkSmartTabs。
它更复杂，因为活动选项卡总是与一些非活动选项卡相交。将其设置为“玻璃”或更好地说透明将导致您看到非活动选项卡的一部分（请参阅here）。解决方法需要进行更深入的修改。还有一个令人不快的伪影，您也可以在屏幕截图中看到它；控件后面有一个由ColorBackground 着色的实心矩形。
要删除控件后面的实心矩形，您可以发布FTransparent 属性字段。通过将其设置为 True，背景将变为透明（请参阅 here）。
@maxfax，转到TrkAeroTabs.SetColors 并将Brushes[2] := TGPSolidBrush.Create(MakeColor(255, Byte(c), Byte(c shr 8), Byte(c shr 16))); 行修改为...MakeColor(200, Byte(c), Byte(c shr 8), Byte(c shr 16))...，其中200 表示活动标签颜色的透明度。我不知道如何在不透明的元素上绘制玻璃效果。

【解决方案1】：

正如@Sertac Akyuz 所指出的：

rkSmartTabs 具有设置标签不透明度级别的属性。

LevelTabActive、LevelTabHot 和 LevelTabInActive。

通过更改默认值（分别为 255、192 和 224），您可以更改不同选项卡状态的不透明度。

我已经玩了几个星期了。我真的很喜欢 Roy 对他们所做的一切。

【讨论】：

OP 希望 rkAeroTabs 不是 rkSmartTabs ;)
@TLama：不，他提到了 rkAeroTabs。我认为，他正在寻找的是一种支持玻璃的页面控件类型的组件。使用类似于 tabcontrol 的 rkSmartTabs，他可以获得 Glassy 选项卡，然后使用面板或框架（？）之类的东西在它们之间切换以获得窗体上的玻璃外观。我还没有找到支持 Glass 的 pagecontrol 等价物。 rkSmartTabs（同一作者）我知道，嘿，可以使用我提到的内容来制作看起来像玻璃的标签。
他当然知道。您在回答中谈论的是rkSmartTabs :)

【解决方案2】：

我刚刚完成了一个非常完整的 Delphi Chrome 选项卡实现。

功能包括：

您可以在此处下载源代码和完整的演示/编辑器：http://code.google.com/p/delphi-chrome-tabs/

【讨论】：