|
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.
|