[[xEsk]]

Buenos dias,
Tengo un pequeño o gran problema (segun se mire), y es que se poner en tiempo real una sombra de esas "chulas" del WinXP en mi Form, pero no se quitarla en tiempo real!
(Mas info > http://www.swissdelphicenter.ch/de/showcode.php?id=1296)

Aqui os pongo el codigo que uso para poner la sombra al Form en "RealTime":

Código Delphi [-]
// Poner sombra 
procedure TMainForm.btnSombraClick(Sender: TObject); 
const 
  CS_DROPSHADOW = $00020000; 
begin 
  SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW); 
  RecreateWnd; 
end;

La verdad esq he probado ya varias formas para quitarla una vez puesta, pero nada... aqui mis intentos fracasados:

Código Delphi [-]
 
  SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE)); 
  RecreateWnd; 

  SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) - DROPSHADOW); 
  RecreateWnd; 

  SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or not DROPSHADOW); 
  RecreateWnd; 

  SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) and not DROPSHADOW); 
  RecreateWnd; 

  SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) and DROPSHADOW); 
  RecreateWnd;