Ventana tipo Messenger

[juanchi]

Hola a todos. Tengo una inquietud que a continuación paso a detallar. Tengo una imagen en un formulario y al apretar un botón quisiera que me aparezca una ventana (que también tendría una imagen) pegada a este formulario, como la del Messenger que sale de la barra de tareas cuando se conecta algún contacto y que desapareciera en unos segundos. El motivo de esto es que quiero observar las dos imagenes al mismo tiempo por unos segundos al apretar un botón, pero que desapareciera sin intervención del usuario. Una solución sería que al apretar el botón se agrandara la pantalla en cuestión para observar las dos imagenes y poner un timer para que al cabo de un tiempo la pantalla volviera a su tamaño original. El problema es que nose como hacer para que tome el efecto de la ventanita del Messenger. Desde ya muchas gracias.


Saludos.

[[seoane]]

Puedes echarle un vistazo al ejemplo que roman dejo en este hilo
http://www.clubdelphi.com/foros/showthread.php?t=37962

PD: Ya que estas por aquí juanchi en el hilo que abriste de Quickhull te deje un poco de código, ¿te sirvió?

[juanchi]

Hola. Revisaré el link que pusiste Seoane. Con respecto al algoritmo de Quickhull si me sirvió mucho, sorry por no darte las gracias antes.



Saludos

[Delfino]

Mira el componente JvDesktopAlert de la JVCL..

[aledieb]

Te paso el componente MSNPopUp lo encontre en internet, la página del autor ya no esta disponible, y no recurdo que tipo de licencia tiene, pero anda igual que el popup del messenger.

MsnPopup - using MSN-style popup windows in your Delphi programs
Copyright (C) 2001-2003 JWB Software

Web: http://people.zeelandnet.nl/famboek/delphi/
Email: jwbsoftware@zeelandnet.nl

[juanchi]

Hola, gracias por contestar. Revisaré los ejemplos que pusieron. Con respecto al ejemplo que pusiste Seoane, quisiera preguntarte como hacer para achicar las dimensiones de la ventana. Otro problema es que al agregarle paneles y una imagen no se ven correctamente, es como si la computadora se quedara sin memoria.


Saludos

[roman]

No sé si te refieres al ejemplo que yo puse y que comentó seoane, o al ejemplo del QuickHull de seoane. Si es lo primero, sería bueno que detallaras más qué es lo que falla o qué es lo que tienes en la ventana. Te pongo una versión modificada que incluye un par de labels, un par de edits y una imagen dentro del panel principal. Como en el otro caso, puedes probar directamente el ejecutable si tienes Delphi 7, si no, basta que recompiles las fuentes.

Agrego

Si con lo de achicar las dimensiones te refieres a que la ventana emergente es de tamaño fijo, eso es así porque se construye con los parámetros (método CreateParams)

Código Delphi [-]
Params.Style := WS_POPUP or WS_DLGFRAME;

En el nuevo ejemplo le he cambiado a:

Código Delphi [-]
Params.Style := WS_POPUP or WS_SIZEBOX;

Con eso, el borde queda igual, pero ya se puede redimensionar.

// Saludos

[juanchi]

Hola Román, me refería a tu código. Es eso justamente lo que preguntaba. Gracias.



Saludos.