Ver Mensaje Individual
  #2  
Antiguo 07-02-2006
Avatar de xEsk
[xEsk] xEsk is offline
Miembro Premium
 
Registrado: feb 2006
Posts: 454
Reputación: 19
xEsk Va por buen camino
Ui, un poco mas cerca de la solucion

Parece que ya lo he logrado, creo que es algo chapuza, pero hace lo que yo quiero... asi que ya me vale, hasta que no vea lo contrario xDDD

Aqui mi Chapu-Codigo (Demostracion de funcionamiento):

Código Delphi [-]
  ...
  // Activa la sombra por si estaba desactivada
  SystemParametersInfo(SPI_SETDROPSHADOW, 0, Pointer(True), 0);
  SetClassLong(Handle,GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);
  RecreateWnd;

  // Actualitza el form y espera 1 segundito (para observar q hay sombra)
  Refresh;
  sleep(1000);

  // Desactiva la sombra (del windows entero)
  SystemParametersInfo(SPI_SETDROPSHADOW, 0, Pointer(False), 0);
  RecreateWnd;  // Recrea la ventana

  // Actualiza el form y espera 1 segundito para observar que ya no hay sombra
  Refresh;
  sleep(1000);
  // Activa la sombra a todo el windos otra vez
  SystemParametersInfo(SPI_SETDROPSHADOW, 0, Pointer(True), 0);
  ...

Ahora solo queda mejorarlo, para que no active las sombras de todo el windows en caso de que el usuario las tuviera desactivadas, pero eso ya es mas facil paritiendo de la base que tengo ahora.

Saludos.

Última edición por xEsk fecha: 07-02-2006 a las 15:09:24.
Responder Con Cita