Ventanas de notificacion

[[Lepe]]

Hola, yo hice ese tipo de ventana, a pelo, no es muy dificil, lo más complicado es para ajustarla en el sitio que quieres que se muestre. Sobre todo si despues la quieres reutilizar para varias aplicacaciones ( tengo en lista de espera hacer eso )

a un formulario sin bordes, ni captionBar, le pones un TTimer, y en el OnHide, y OnShow, haces un par de bucles para quitarles el tamaño y aumentarlo. Así mismo le incluyes un Tmemo o un TlistBox y ya puedes enviarle los textos.

Añades un par de procedimientos del tipo:

TfrmNotify.AnadeTexto( texto:string; color:Tcolor; mostrarVEntana:Boolean; BorrarTextoAnterior:Boolean)

TfrmNotify.FijarEnPantalla(left,top:integer)

Y con esta ultima ventana te permite fijar en pantalla sin animación (por ejemplo).

Si quieres, puedo postearte lo que tengo hecho, aunque te aviso, creo que lo hice en Delphi 3 cuando estaba empezando con Delphi, así que no tiene eficiencia ni ná. Y de momento está a medias.

Hace un mes lo empecé a modificar para decirle a que control se debia de adosar( por ejemplo a un TStatusbar u otro Twincontrol)
y decirle como se ha de mostrar, si de abajo hacia arriba (en este caso estaria adosado a un TstatusBar) o de arriba hacia abajo ( en este caso seria util adosarlo a un boton de un TToolBar).

Como te digo está a medias, pero te puede ahorrar algo de tiempo, lo que funciona bien son:
- las animaciones de ventana (mostrar y ocultar)
- Poder enviarle texto con el color que queramos
- Mostrar la ventana de notificación y pasado un tiempo ocultarlas
- Fijar en pantalla sin animación.
- Copiado automatico del texto seleccionado al portapapeles de Windouuuuuss.

Modificando actualmente:
- Para añadirle una imagen junto al mensaje
- Animaciones cuando se adosa a un ToolBar.

Por supuesto, yo ese tipo de ventana lo añado dentro de mi aplicación, es decir, no lo he hecho para ajustarlo a la barra de tareas, eso quedaria pendiente.

Tampoco es un componente, está diseñado como un Form normalito de toda la vida.

Saludos para todos.