Hello!
Zgodnie z zapisami w Delphi FAQ nr 53 z tej strony wpisałem instrukcje mające wywołać funkcje migotania programu na pasku zadań.
- Wpisałem przed procedurami:
var
Miganie : Boolean; - Ustawiłem kompunent Timer1 i wpisałem procedurę:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Miganie := Not Miganie;
FlashWindow (Application.Handle, Miganie);
end; - W innej procedurze, wpisałem:
Timer1.Enabled := True;
- to z założenia włączyło migotanie
Aby zatrzymać migotanie, w innej procedurze (wywoływanej przyciskiem) wpisałem:
Timer1.Enabled := False;
I jest problem: na ogół ikona nadal świeci (nie miga, ale zostaje podświetlona).
Zauważyłem, że swiecenie znika, po minimalizacji i przywróceniu, jednak nie zawsze.
Ma ktoś pomysł jak wyłaczyć świecenie...?
<font color="red">Thx</span>