FiveTech Support Forums

Compañeros del foro:

Estoy desarrollando un pequeño chat para uso privado entre las sucursales de un cliente y todo va bien, pero quisiera que si un dialogo está minimizado y recibe un nuevo mensaje, "parpadeara" para que el usuario pueda saber que recibió un nuevo mensaje tal y como lo hacia Messenger en su momento, busque en el foro y Carlos hace años publico una clase TTitle que creo hace lo que necesito pero el link ya no funciona. Alguien ha hecho algo similar o que me den alguna idea de como hacerlo?

Saludos !!

LCP Eduardo Borondón Muñiz

Eduardo, no sé si esto te podrá ayudar

https://msdn.microsoft.com/es-es/librar ... 46(v=vs.85).aspx

Hola Cristóbal y Karinha

Gracias por responder, con los ejemplos que me mandan logro hacer que la ventana "parpadee" pero únicamente si se encuentra abierta o en modo normal, si esta minimizada no hace el efecto y es precisamente lo que necesito, que lo haga cuando se encuentre minimizada, alguna idea??

Saludos y gracias

LCP Eduardo Borondón Muñiz

Por favor, haga un pequeño ejemplo para entender mejor.

Gracias, saludos.

EBM wrote:Hola Cristóbal y Karinha

Gracias por responder, con los ejemplos que me mandan logro hacer que la ventana "parpadee" pero únicamente si se encuentra abierta o en modo normal, si esta minimizada no hace el efecto y es precisamente lo que necesito, que lo haga cuando se encuentre minimizada, alguna idea??

Saludos y gracias

LCP Eduardo Borondón Muñiz

BOOL WINAPI FlashWindow(
_In_ HWND hWnd,
_In_ BOOL bInvert
);

hWnd [in]
A handle to the window to be flashed. The window can be either open or minimized.
bInvert [in]
If this parameter is TRUE, the window is flashed from one state to the other. If it is FALSE, the window is returned to its original state (either active or inactive).
When an application is minimized and this parameter is TRUE, the taskbar window button flashes active/inactive. If it is FALSE, the taskbar window button flashes inactive, meaning that it does not change colors. It flashes, as if it were being redrawn, but it does not provide the visual invert clue to the user.

Cristóbal y Karinha

Mil gracias, funciona perfecto!!, era solo ponerlo en verdadero

Gracias de nuevo a ambos por su tiempo

Saludos!!

LCP Eduardo Borondón Muñiz

Amigo tendria un ejemplo y imagen para compartir

saludos

Hola jbrita

Con todo gusto, pásame tu correo y te envío un ejemplo que tengo funcionando.

Saludos !!

LCP Eduardo Borondón Muñiz

EBM wrote:Hola jbrita

Con todo gusto, pásame tu correo y te envío un ejemplo que tengo funcionando.

Saludos !!

LCP Eduardo Borondón Muñiz

jbricenotapia@gmail.com

Saludos

Enviado!!

Saludos!!

LCP Eduardo Borondón Muñiz

Eduardo:

Podrías poner el ejemplo aquí en el foro?, así a quien le interese se vería beneficiado.

Saludos

Hola Armando

Tienes razón, una disculpa, aquí va el código para hacer el efecto:

/////////////////////////////////////////////////////////////////////////////////////////////////
FUNCTION Parpadeo( oWnd )

If oWnd:IsIconic() .and. oWnd:lNewMsg
FlashWnd( oWnd:hWnd, 1 )
Tone( 2000, .1 )
else
oWnd:lNewMsg := .F.
EndIf

Return .T.

////////////////////////////////////////////////////////////////////////////////
DLL32 FUNCTION FlashWnd( hWnd AS LONG, nInvert AS LONG ) AS LONG PASCAL FROM "FlashWindow" LIB "User32.dll"

Saludos!!

LCP Eduardo Borondón Muñiz

Eduardo:

No tienes que disculparte, por el contrario, gracias por tu aporte al foro.

Saludos