如何在Delphi中显示半透明调暗面板/图像？

我希望得到一个TPanel或TImage来显示暗淡的背景（带面纱），有人知道如何在Delphi（2010）中实现这一点吗？如果可能的话，我宁愿不使用组件，只使用原始代码。 其思想是，当显示一个新表单时，父表单会直观地向用户显示它已被“禁用”

大概是这样的： 也许可以帮你

关于：

如果可能的话，我宁愿不使用组件，只使用原始代码

---

您可以从代码中实例化和使用组件，而不仅仅是在表单设计器中。

这是我对主表单以及所有其他需要该效果的表单使用的方法。

---

我知道我可以在运行时创建组件，但对于这样的小任务，我总是尽可能使用原始代码。“原始代码”和使用代码中的组件有什么区别？：-）这就是为什么只有链接的答案不再被接受的原因。该链接现在重定向到完全无关的内容，从而使此答案无效。