Прозрачный фон Формы - C++ Builder - Ответ 9803055

namespace NonClickable_Desktop
{
    class TForm : public Forms::TForm
    {
        typedef Forms::TForm Inherited;
    private:
        Forms::TForm *NonClickThrough;
        void __fastcall FormBehind(TObject *Sender)
        {
            NonClickThrough->BoundsRect = this->BoundsRect;
            ::SetWindowPos(NonClickThrough->Handle, this->Handle, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE);
            this->SetFocus();
        }
 
        void __fastcall CatchDrag(TMessage &Msg)
        {
            Inherited::Dispatch(&Msg);
            if(Msg.Msg == WM_MOVE && NonClickThrough)
            {
                FormBehind(0);
            }
        }
 
    public:
        __fastcall virtual TForm(Classes::TComponent* AOwner)
            : Forms::TForm(AOwner)
            {
                NonClickThrough = new Forms::TForm(Application);
                NonClickThrough->OnClick = FormBehind;
                NonClickThrough->OnDblClick = FormBehind;
 
                Color = clPurple;
                TransparentColorValue = clPurple;
                TransparentColor = true;
            }
 
    protected:
        BEGIN_MESSAGE_MAP
            MESSAGE_HANDLER(WM_MOVE, TMessage, CatchDrag);
        END_MESSAGE_MAP(Forms::TForm)
 
        DYNAMIC void __fastcall DoShow(void)
        {
            NonClickThrough->BorderStyle = bsToolWindow;
            NonClickThrough->AlphaBlend = true;
            NonClickThrough->AlphaBlendValue = 1;
            NonClickThrough->Show();
            FormBehind(0);
        }
    };
};
#define TForm NonClickable_Desktop::TForm
 
// дальше твой класс формы, без изменений