[Schattiere Fenster] - Schattierung ein/aus schalten

[xZise]

Ich habe folgenden Code aus dem SwissDelphicenter benutzt um ein Fenster ein Schatten zu versehen:

Delphi-Quellcode:

procedure TInfoBox.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if not (csDesigning in ComponentState) then
  begin
    Params.WindowClass.style := Params.WindowClass.style or CS_DROPSHADOW;
  end;
end;

(siehe SwissDelphiCenter)

Nun funktioniert das wunderbar, aber ich würde gerne den Schatten ein/ausschalten lassen wollen ... Wie bekommt man dass hin?