Mostar/Ocultar una sombra a un Form en tiempo de ejecución

[[Chris]]

Si lo que quieren es siempre mantener activa la sombra, utilicen algo más profecional, por ejemplo, el siguiente código:

type
TForm1 = class(TForm)

private
{ Private declarations }
public
{ Public declarations }
protected
procedure CreateParams(var Params: TCreateParams); override; // Importante el "Override" !!!!
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{------------------------------------------------------------}
// Con esta función verificamos si el usuario está utilizanco WinXp
function IsWinXP: Boolean;
begin
Result := (Win32Platform = VER_PLATFORM_WIN32_NT) and
(Win32MajorVersion >= 5) and (Win32MinorVersion >= 1);
end;
{------------------------------------------------------------}


{------------------------------------------------------------}
// Si es WinXP, entonces creamos la sombra
procedure TForm1.CreateParams(var Params: TCreateParams);
const
CS_DROPSHADOW = $00020000;
begin
inherited;
if IsWinXP then
Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW
else
end;
{------------------------------------------------------------}

esto nos evitará estar cambiando sin permiso la configuración al usuario. Recuenden que eso no le agrada a nadie.