德尔福切割玻璃

Ast*_*sta 18 delphi aero-glass

我正在使用Delphi XE2,我喜欢玻璃效果,我想在Windows 7平板电脑工具中"切割"玻璃.如果你也知道如何切一个按钮,如果你告诉我如何,我会很高兴.

在此输入图像描述

谢谢

War*_* P 5

在顶部区域绘图只是在非客户区域中使用玻璃框架和绘画,或者使用DwmExtendFrameIntoClientArea API.

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

请注意,笔者不得不思考不仅是如何使具有玻璃ON时VISTA/Win7的系统,而且还必须决定如何在WinXP,Win7和Vista的渲染时,主题发动机关闭.Vcl.Ribbon.pas如果您在XE或更早版本中,那么(或者只是Ribbon.pas)中存在相当多的逻辑.

查看procedure TCustomRibbonQuickAccessPopupToolbar.NCPaint(DC: HDC);Vcl Ribbon源代码.

绘制从底部突出的非矩形"扩展区域"可能是应用自定义窗口剪切区域的问题.