How to make semi-transparent panel in Delphi VCL

Asked Jan 30 '21 at 15:22

Active Jan 30 '21 at 17:04

Viewed 1,467 times

I can easily make semi-transparent panel inside form using Firemonkey's TForm.Transparency and TPanel.Opacity options. But I can't do it in VCL.

I want to make something like this:

Is there any way to do it in VCL application? No third-party component please.

Edit: If I can also make opaque components on the semi-transparent surface, that would be a PLUS.

edited Jan 30 '21 at 17:04

asked Jan 30 '21 at 15:22

Xel Naga

1

Instead of a `TPanel` use a form with `AlphaBlend = True` and `AlphaBlendValue = 127`. If the form's borders disturb, set `BorderStyle = bsNone` – Tom Brunberg Jan 30 '21 at 15:51
@TomBrunberg How will I make opaque components then? – Xel Naga Jan 30 '21 at 15:59
But the image (that you said is what you want) has semi opaque buttons? So, what do you want? Be specific, please. – Tom Brunberg Jan 30 '21 at 16:04
And since Windows 8 child windows can be layered too. – Andreas Rejbrand Jan 30 '21 at 16:37
@TomBrunberg Image is from Firemonkey app. I want to do it using VCL. – Xel Naga Jan 30 '21 at 16:48
Yes, I understand that. But what about component opacity? See your first comment and my response. – Tom Brunberg Jan 30 '21 at 16:50
@TomBrunberg I want semi-opaque and full-opaque components inside the same form. If I use AlphaBlend, afaik i won't be able to make full-opaque components. – Xel Naga Jan 30 '21 at 16:56
So, in other words, the image is NOT what you want to achieve after all (since the left button isn't fully opaque)! :) – Andreas Rejbrand Jan 30 '21 at 16:58
Thanks, So please edit your question and include something like "semi-transparent surface with both semi-transparent and opaque components". – Tom Brunberg Jan 30 '21 at 17:00
Do you need form border, title bar and buttons? Or just what you showed on the image? – fpiette Jan 30 '21 at 18:18
@fpiette I don't need them. Thanks for asking. – Xel Naga Jan 30 '21 at 18:26

How to make semi-transparent panel in Delphi VCL

0 Answers0