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
[-]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;