德尔福切割玻璃

Question

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

由于

Answer 1

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

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

请注意，作者不仅要考虑如何渲染具有Glass ON的Vista / Win7系统，还必须决定在主题引擎关闭时如何在WinXp，Win7和Vista上渲染。 Vcl.Ribbon.pas中有相当多的逻辑（或者如果你在XE或更早的时候只是Ribbon.pas）。

查看Vcl功能区来源中的procedure TCustomRibbonQuickAccessPopupToolbar.NCPaint(DC: HDC);。

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

Answer 2

你的意思是你想成型吗？如果是的话

Irregularly shaped forms

可以提供帮助。我想这可以在Windows 7上运行（请注意Remy在答案中的评论）。

HTH