Programowanie w języku Delphi » FAQ

Jak wywołać migotanie programu na pasku zadań

  • 2006-12-11 18:11
  • 1 komentarz
  • 722 odsłony
  • Oceń ten tekst jako pierwszy
Normalnie jeżeli chcesz, aby na pasku zadań nazwa Twojego programu się "zapaliła" to piszesz coś takiego:

FlashWindow(Application.Handle,True);

Jeżeli chcesz, aby program przestał być zaznaczony to zamiast "True" piszesz "False". Teraz jeżeli chcesz, aby nazwa raz się zapalała, a raz "gasiła" to musisz na formie postawić komponent Timer. Zmień "Enabled" na False. W procedurze "OnTimer" tegoż komponentu piszesz:
var
  Miganie : Boolean;
 
procedure OnTimer(Sender: Tobject);
begin
  Miganie := not Miganie;
  FlashWindow(Application.Handle, Miganie);
end;

Teraz żeby uruchomić zegar musisz napisać:

Timer1.Enabled := True; 

1 komentarz

PcSA 2006-12-14 23:31

Ja bym polecił ze swojej strony FlashWindowEx, które jest o niebo lepsze :P