Forms Sombreados

[[gluglu]]

Sigo investigando ...

Por otro lado he visto que al parecer hace falta la siguiente línea adicional de código :

SystemParametersInfo(SPI_SETDROPSHADOW,0,Pointer(true),0);

pero si lo intento en mi Delphi 2005, me dá error de 'Invalid TypeCast' con Pointer(true). Ya que los punteros todavía no es mi fuerte, me podría decir alguien por favor como hacer que el parámetro que debe ser de tipo puntero, me señale a 'True' ?

Esto es lo que aparece en la ayuda de Delphi bajo 'SystemParametersInfo'

The SystemParametersInfo function retrieves or sets the value of one of the system-wide parameters. This function can also update the user profile while setting a parameter.

BOOL SystemParametersInfo( UINT uiAction, UINT uiParam, PVOID pvParam, UINT fWinIni);...
SPI_SETDROPSHADOWEnables or disables the drop shadow effect. Set pvParam to TRUE to enable the drop shadow effect or FALSE to disable it. You must also have CS_DROPSHADOW in the window class style.

Saludos de nuevo !

[[gluglu]]

A pesar de todo esto ...

Código Delphi [-]
procedure TForm.CreateParams(var Params: TCreateParams);
const
  CS_DROPSHADOW = $00020000;
var
  B : longbool;
begin
  inherited;
  B := True;
  SystemParametersInfo(SPI_SETDROPSHADOW,0,B,0);
  Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

sigue sin funcionar con Form.Showmodal

[[gluglu]]

!!

Finalmente me contesto a mi mismo en todo este post !!

Ya lo conseguí ...

Encontré en la propia ayuda de Delphi lo siguiente :

The PopupMode property controls how the top-level form behaves with respect to Window's WS_POPUP style. A window that has the WS_POPUP style is always above its "owner" in Z-order.

De esta manera he conseguido el sombreado también en el form que se llama con ShowModal

Código Delphi [-]
 Form2 := TForm2.Create(Self);
Form2.PopupMode := pmAuto;
Form2.ShowModal;

Saludos a todos !

[roman]

gluglu, te agradezco que hayas continuado y concluido este hilo tú sólo. Mucha gente, al no recibir respuesta, opta por no publicar la suya propia una vez que la encuentran. Da gusto ver que esta vez no fue así.

Me resta una pregunta: ¿qué versión de Delphi usas? Porque no veo la propiedad PopupMode por ningún lado.

[[maeyanes]]

Pues según, parece que esta propiedad la agregaron desde Delphi 8.

http://blogs.borland.com/abauer/arch...02/10/295.aspx


Saludos...

[[gluglu]]

Gracias a David 'dec' pude crear mi propio avatar, incluyendo la versión del Delphi que utilizo, así como la BD que uso.

Estaba programando en D2005 pero ya me estoy pasando por completo a D2006. Cierto es que como llevo poquito tiempo en el nuevo mundo del Delphi, empezé directamente con la versión más actual, por lo que no sabía que dicha propiedad no se encontraba disponible en versión anteriores a D8.

Lo que sí creo es que la indicación que viene en el primer link que expuse, con respecto a sombrear los forms, sirve para todas las versiones de Delphi, pero yo me encontraba el problema con aquellas ventanas que eran 'modales'.

Seguro que junto con la explicación que viene en el link que ha dado maeyanes, debe existir una manera de solucionar el orden Z de las ventanas modales en D7 o anteriores, y de esta manera poder hacer uso de los forms sombreados incluso en versiones modales.

Debo añadir a todo este hilo que no especifiqué que además hay que activar la propiedad FormStyle = fsStayOnTop del form que se quiere sombrear.

En cualquier caso es un placer para mí compartir con todos vosotros mis averiguaciones, así como aprovechar para daros las gracias a todos por la ayuda que siempre me prestais en mis consultas.

Un saludo a todos.

[oregon]

Saludos Gluglu,

Estoy intentando aplicar tus conocimientos sobre sombreado a un form de tipo showmodal, pero no consigo averiguar como y donde poner cada parte del código: ¿en el form principal? ¿en el form que se visualiza como modal?...
He hecho varias pruebas, pero todas ellas infructuosas-

¿me puedes hechar una mano con esto?
Muchas gracias!