Disolver a un Form al cerrarlo
Hola,
Alguien conoce algún componente de como disolver un Form?, es decir, he visto en el programa Registry Clean Expert (No sé si lo conoceis: http://www.registry-clean.net/) que al salir del mismo (al cerralo) este va disolviendose cual si la transparencia cada vez fuera mayor (va volviendose transparente hasta desaparecer todo el Form), dicha transparencia se ve en en la totalidad del Form. No es un form del tipo transparente ya que esos Forms conservan las propiedades de la barra del título por ejemplo. Si en Torry's lo hay, con que nombre busco? ó ¿como realizo esta disolución por código para que muestre este efecto al cerrar un Form? Un Saludo |
Saludos
Si te refieres a ponerlo transparente degradandolo debes usar las propiedades AlphaBlend y AlphaBlendValue para el caso. |
Hola,
Prueba con la función "AnimateWindow". Por ejemplo, sitúa el siguiente código en el evento "OnClose" del formulario principal de tu aplicación: Echa un vistazo a la ayuda de la función "AnimateWindow", puesto que esta te ofrece más posibilidades que las mostradas arriba. |
Acabo de leer los post,
He estado intentando con AlphaBlend, en cambio con AnimateWindow lo probaré llegando a casa. Se me presentó la siguiente duda: En este código no pasa nada, pero si el mismo le implemento a un Button al evento OnClick, si trabaja, ¿donde está la diferencia?, pareciera que no hace caso el Timer al evento OnClose. ¿Donde estoy fallando? Saludos |
El problema es que aunque actives el timer la aplicacion se cierra sin esperar a que ocurra el primer evento del timer.
Prueba con esto: Código:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); Código:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); |
Saludos
Sin dar muchas vueltas, creo que es mas factible la solucion propuesta por dec. |
Cita:
Saludos. |
Realmente da gusto pertenecer al Foro, hace un mes atrás lo dije, y menciono esto porque muchos colaboran con sus conocimientos y experiencias.
Hubo razón en mis sospechas, al cerrar el Form no funciona el Timer. El primer código de Seoane, trabaja muy bien la disolución, pero me parece que en la línea: UpdateWindow(Handle); Realiza UN DESTELLO antes de disolver el Form. ¿A que se debe ello? ¿como evitarlo? Saludos Pd.- De todas maneras probaré todos los otros consejos que aportaron. |
La franja horaria es GMT +2. Ahora son las 17:24:43. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi