Ir para conteúdo
Banner com Efeitos

[Tutorial] Fazer janela piscar na barra de tarefas (Igual à MSN)

Featured Replies

Postado

{Fazer janela piscar na barra de tarefas (Igual à MSN)}

Não tenho muito o que falar, é igual quando uma pessoa te chama no MSN e o seu msn fica piscando na barra de tarefas.

Dê dois cliques no form do seu projeto para ir para os códigos.

Após:

implementation


{$R *.dfm}
Adicione isto:
procedure flash;

var FWInfo: FLASHWINFO;

begin

   with FWInfo do

    begin

     cbSize:=SizeOf(FWInfo); //Tamanho do struct em bytes

     hWnd:=Application.Handle; //Handle da janela

     dwFlags:=FLASHW_TRAY; //Piscar na barra de tarefas

     uCount:=5; //Piscar cinco vezes

     dwTimeOut:=200; //Tempo de duração de cada piscada em milisegundos

    end;

   FlashWindowEx(FWInfo);

   Sleep(300);

  end;
Agora para usar a função flash (coloque em algum botão ou outro componente) chame a função usando este código:
flash;

Pronto, a função foi adicionada e você pode usa-la no componente que quizer que suporte chamar uma função.

"A esperança é o sonho do homem acordado."

Aristóteles

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

Quem Está Navegando 0

  • Nenhum usuário registrado visualizando esta página.

Estatísticas dos Fóruns

  • Tópicos 96.9k
  • Posts 519.7k

Informação Importante

Confirmação de Termo