Hola amigos,
No se si existe lo que quiero hacer.
Se trata de poder usar un sistema de ventanas emergentes al estilo de las que tiene el messenger o skype cuando te notifica que un usuario se ha conectado, nos aparece una ventana tipo marco cuadradito que emerge de la barra de inicio de windows esquina inferior derecha.
Pues si se pudiera hacer esto para que una aplicación notificase mensajes de estado, sería estupendo, mi finalidad no es que informe de si un usuario se ha conectado o no. Solo se trata de utilizar ese estilo de ventana emergente en lugar de nuestro ya conocidisimo MsgInfo().
Cualquier sugerencia será agradecida.
Saludos.
Ventanitas emergentes
Ventanitas emergentes
Javier,
FWH 8.04 2008
FWH 8.04 2008
- armando.lagunas
- Posts: 340
- Joined: Mon Oct 05, 2009 3:35 pm
- Location: Curico-Chile
- Contact:
Re: Ventanitas emergentes
hola:
yo uso esto, es una dialogo que se visualiza mientras termina el tiempo del meter y desaparece, se posiciona en la ventana contenedora en la parte inferior derecha, creo que simula lo que necesitas...
Espero que te sirva
saludos desde chile.
yo uso esto, es una dialogo que se visualiza mientras termina el tiempo del meter y desaparece, se posiciona en la ventana contenedora en la parte inferior derecha, creo que simula lo que necesitas...
Code: Select all
//----------------------------------------------------------------------
FUNCTION MsgTray( oWnd, cMsg )
LOCAL DlgTray, aRct, oMet
DEFINE DIALOG DlgTray RESOURCE 14 OF oWnd
REDEFINE SAY PROMPT cMsg ID 11 OF DlgTray
REDEFINE BUTTON ID 104 OF DlgTray ACTION DlgTray:End()
oMet := TProgress():Redefine( 13, DlgTray )
ACTIVATE DIALOG DlgTray NOWAIT ;
ON PAINT ( aRct := GetClientRect( DlgTray:hWnd ), GradColor( DlgTray:hDC, aRct, CLR_WHITE, nRGB(10,0,0) ) ) ;
ON INIT ( DlgTray:MOVE((oWnd:nHeight() - 200 ),(oWnd:nWidth() - 305 )), oMet:SetRange(1,700),TrayTimer( DlgTray, 750, oMet ))
RETURN Nil
//----------------------------------------------------------------------
STATIC FUNCTION TrayTimer( DlgT, nInterval, oMet )
LOCAL oTmr
DEFINE TIMER oTmr OF DlgT INTERVAL 1 ACTION ( oMet:nPosition +=1, IIF(oMet:nPosition > nInterval, DlgT:End(), ) )
ACTIVATE TIMER oTmr
RETURN nil
//----------------------------------------------------------------------
saludos desde chile.
Re: Ventanitas emergentes
Gracias por la ayuda Armando.
Creo que servirá como punto de partida para lo que necesito.
Saludos,
Javier.
Creo que servirá como punto de partida para lo que necesito.
Saludos,
Javier.
Javier,
FWH 8.04 2008
FWH 8.04 2008
Re: Ventanitas emergentes
Hola Armando.
sabes ando buscando una ventana emergente asi como el messenger me puedes explicar como lo haces
Saludos
sabes ando buscando una ventana emergente asi como el messenger me puedes explicar como lo haces
Saludos
Re: Ventanitas emergentes
Buenas tardes, compañeros:
Tengo necesidad de implementar este sistema de comunicación con los usuarios a través de mi aplicación. ¿Sabeis si alguien ya tiene implementado este sistema? Lo ideal sería que fuese una ventana emergente, con movimiento, que emerga de abajo hacia arriba.
jfafive (Javier), ¿tú llegaste a hacer algo al respecto?
Mil gracias.
Un saludo.
LORENZO
Desde Cádiz, España
Tengo necesidad de implementar este sistema de comunicación con los usuarios a través de mi aplicación. ¿Sabeis si alguien ya tiene implementado este sistema? Lo ideal sería que fuese una ventana emergente, con movimiento, que emerga de abajo hacia arriba.
jfafive (Javier), ¿tú llegaste a hacer algo al respecto?
Mil gracias.
Un saludo.
LORENZO
Desde Cádiz, España