Ventanitas emergentes

Post Reply
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Ventanitas emergentes

Post by jfafive »

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.
Javier,
FWH 8.04 2008
User avatar
armando.lagunas
Posts: 340
Joined: Mon Oct 05, 2009 3:35 pm
Location: Curico-Chile
Contact:

Re: Ventanitas emergentes

Post by armando.lagunas »

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...

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
//----------------------------------------------------------------------
 
Espero que te sirva

saludos desde chile.
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Re: Ventanitas emergentes

Post by jfafive »

Gracias por la ayuda Armando.
Creo que servirá como punto de partida para lo que necesito.

Saludos,
Javier.
Javier,
FWH 8.04 2008
jbrita
Posts: 425
Joined: Mon Jan 16, 2006 3:42 pm

Re: Ventanitas emergentes

Post by jbrita »

Hola Armando.
sabes ando buscando una ventana emergente asi como el messenger me puedes explicar como lo haces

Saludos
Loren
Posts: 458
Joined: Fri Feb 16, 2007 10:29 am
Location: Cadiz - España

Re: Ventanitas emergentes

Post by Loren »

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
Post Reply