Alerta no prog. minimizado

Delphi

24/10/2003

Seguinte,

precisava saber se existe algum método do form que emite um alerta (faz piscar) quando houver uma mudança e o form estiver minimizado.

Valeu.


Dahud

Dahud

Curtidas 0

Respostas

Beppe

Beppe

24/10/2003

procedure FlashWnd(Wnd: HWND; Count: Integer; StopNow: Boolean);
var
  Flash: TFlashWInfo;
begin
  with Flash do
  begin
    cbSize := SizeOf(Flash);
    hwnd := Wnd;
    if StopNow then
      dwFlags := FLASHW_STOP
    else
    begin
      if Count = 0 then
        dwFlags := FLASHW_ALL or FLASHW_TIMERNOFG
      else
        dwFlags := FLASHW_ALL;
    end;
    uCount := Count;
    dwTimeout := 0;
    FlashWindowEx(Flash);
  end;
end;


Chama FlashWnd(Application.Handle, 5, False) para piscar 5 vezes.

Chama FlashWnd(Application.Handle, 0, False) para piscar por tempo indefinido. Então coloca Chama FlashWnd(Application.Handle, 0,True) no OnActivate dum form para parar.

Ataliba


GOSTEI 0
Dahud

Dahud

24/10/2003

Obrigado !

Sua ajuda foi muito útil !


GOSTEI 0
POSTAR