Pisca Pisca no minimizado do ChatClient

Question

Oi pessoal, acontece o seguinte, to fazendo um chatclient e acontece que quero a seguinte a��o. que quando chegar a mensagem pra a pessoa, e tiver minimizado a janela, a janela come�e a piscar, assim ...

Aroldo Zanela · Answer

Colega,No evento que manipula o recebimento de mensagem adicione o seguinte c�digo (substituir Form1 pelo nome do seu formul�rio);[code:1:efde03a57d]SetForegroundWindow(Form1.Handle);[/code:1:efde03a57d]...

Cebikyn · Answer

Acho que [b:22bf41c806]SetForegroundWindow();[/b:22bf41c806] n�o � exatamente o que o Sergio precisa, pois esta fun��o apenas tras a janela para frente, e ele quer que a janela pisque. Para isso deve-se usar a [i:22bf41c806]procedure[/i:22bf41c806] [b:22bf41c806]FlashWindow[/b:22bf41c806] ou a [b:22bf41c806]FlashWindoEx[/b:22bf41c806].

Para usar a [b:22bf41c806]FlashWindowEx[/b:22bf41c806], declare:

type
  TFlashWInfo = record
    cbSize    : LongInt;
    hWndMe    : LongInt;
    dwFlags   : LongInt;
    uCount    : LongInt;
    dwTimeout : LongInt;
  end;

Depois use:

var
  FWinfo: TFlashWInfo;
begin
  with FWinfo do
  begin
    cbSize := 20;
    hwnd := Application.Handle; // O handle do aplicativo
    dwflags := FLASHW_ALL;
    ucount := 10; // n�mero de vezes para piscar
    dwtimeout := 0; // Tempo entre alternar as cores (0 � o padr�o)
  end;

  FlashWindowEx(FWinfo);
end;

Voc� pode trocar [b:22bf41c806]FLASH_ALL[/b:22bf41c806] por:

FLASHW_STOP = 0
FLASHW_CAPTION = 1   // Pisca apenas a barra de t�tulo
FLASHW_TRAY = 2      // Pisca o bot�o da barra de tarefas
FLASHW_ALL = 3       // Pisca o bot�o e a barra de t�tulo
FLASHW_TIMER = 4     // Pisca at� que a fun��o seja
                     // chamada com o FLASHW_STOP
FLASHW_TIMERNOFG = 5 // Pisca at� a janela ter foco

Caso esta fun��o n�o funcione na sua vers�o do Windows, deixe uma msg que eu coloco como usar a [b:22bf41c806]FlashWindow[/b:22bf41c806].

Aroldo Zanela · Answer

[quote:82e82b9beb=�Sergio Luiz�]e tiver minimizado a janela, a janela come�e a piscar, assim como no messenger, [/quote:82e82b9beb]Colega,SetForegroundWindow faz exatamente isso....

Cebikyn · Answer

[quote:e90b5b24a3=�Aroldo Zanela�][quote:e90b5b24a3=�Sergio Luiz�]e tiver minimizado a janela, a janela come�e a piscar, assim como no messenger, [/quote:e90b5b24a3]

Colega,

SetForegroundWindow faz exatamente isso.[/quote:e90b5b24a3]

N�o sabia, eu apenas li este trecho do site do Micro$oft:

The SetForegroundWindow function puts the thread that created the specified window into the foreground and activates the window. Keyboard input is directed to the window, and various visual cues are changed for the user. The system assigns a slightly higher priority to the thread that created the foreground window than it does to other threads.

e j� achei que a fun��o n�o piscasse a janela... acho que esta parte de piscar esta impl�cita em �[i:e90b5b24a3]various visual cues[/i:e90b5b24a3]�...

Aroldo Zanela · Answer

Colega,Windows NT 5.0 will not allow an application to force a window to the foreground while the user is working with another window. Instead, SetForegroundWindow will activate the window (see SetActiveWindow) and call the FlashWindowEx function to notify the user....

Cebikyn · Answer

[quote:e6ed95f93b=�Aroldo Zanela�]Colega,

Windows NT 5.0 will not allow an application to force a window to the foreground while the user is working with another window. Instead, SetForegroundWindow will activate the window (see SetActiveWindow) and call the FlashWindowEx function to notify the user.[/quote:e6ed95f93b]

Como eu disse, eu apenas li [b:e6ed95f93b]aquele[/b:e6ed95f93b] trecho... :D

F�rum Pisca Pisca no minimizado do ChatClient #177044