🚀 go-pugleaf

Nothing to do!

The first time I've launched my exe, the shadow appears, after I've executed

SystemParametersInfo(0x1025, FALSE, NULL, 0);

and the shadow doesn't appear anymore

Now I'm trying this code, according to your previous message:

bool shadow = false //global variable

//--------------------------------------------------------------------------
-
void __fastcall TForm1::CreateParams(TCreateParams &Params)
{
   const CS_DROPSHADOW = 0x00020000;

   TForm::CreateParams(Params);

   if (shadow)
      Params.WindowClass.style |= CS_DROPSHADOW;
   else
      Params.WindowClass.style &= ~CS_DROPSHADOW;

   SystemParametersInfo(0x1025, TRUE, NULL, 0);
}
//--------------------------------------------------------------------------
-
void __fastcall TForm1::Button8Click(TObject *Sender)
{
   shadow=true;
   RecreateWnd();
}
//--------------------------------------------------------------------------
-
void __fastcall TForm1::Button7Click(TObject *Sender)
{
   shadow=false;
   RecreateWnd();
}
//--------------------------------------------------------------------------
-

But it seems not working. Where have I wrong?

There's a way to not use RecreateWnd function?

My really scope is to obtain a shadow like Photoshop splash screen, that
shadow is bigger and better than the shadow I can obtain with previous code
.

Thanks

Mario Sernicola