德尔福切割玻璃

Question

我正在使用Delphi XE2，我喜欢玻璃效果，并且我想像Windows 7平板电脑工具中那样“切割”玻璃。如果您也知道如何剪按钮，我会很高兴告诉我如何剪。

谢谢

Answer 1

在顶部区域绘图只需使用玻璃框架并在非客户区域中绘图，或者使用 DwmExtendFrameIntoClientArea API。

我见过的最好的代码示例是 VCL“Ribbon”控件，它提供了一个“QAT”(快速访问工具栏)区域，绘制在“非客户区域”中。

请注意，作者不仅要考虑在打开 Glass 的 Vista/Win7 系统上如何渲染，而且还要决定在主题引擎关闭时如何在 WinXp、Win7 和 Vista 上渲染。 Vcl.Ribbon.pas中有相当多的逻辑。 (或者如果您使用的是 XE 或更早版本，则只是 Ribbon.pas)专用于此的单元。

查看procedure TCustomRibbonQuickAccessPopupToolbar.NCPaint(DC: HDC);在 Vcl Ribbon 源中。

绘制从底部突出的非矩形“扩展区域”可能需要应用自定义窗口剪切区域。