topic-19141

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Ventanitas emergentes
Posted: Thu Jun 24, 2010 10:07 AM

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

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Ventanitas emergentes
Posted: Tue Jun 29, 2010 05:42 AM

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 (fw): Select all Collapse

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

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Re: Ventanitas emergentes
Posted: Tue Jun 29, 2010 07:10 AM

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: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: Ventanitas emergentes
Posted: Wed Nov 10, 2010 01:21 PM

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

Saludos

Loren

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

Re: Ventanitas emergentes
Posted: Mon Nov 10, 2014 01:34 PM

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

FiveTech Support Forums

Continue the discussion