Как создать анимированный заголовок на Панели задач

Тема в разделе "Delphi", создана пользователем WinHack, 23 ноя 2016.

  1. WinHack
    Если Вам нужно привлечь внимание пользователя, когда происходит что-то важное в Вашем приложении, можно сделать мигающую кнопку на Панели задач. Но если начинается длительный процесс, то Вы можете указать на него анимацией заголовка на кнопке на Панели задач.

    Вот как можно создать анимацию кнопки Вашего приложения на Панели задач:

    • Поместите TTimer на форму.
    • Запишите следующий код в событии OnTimer:
    Код:
    procedure TForm1.Timer1Timer(Sender: TObject);
    const
      {$J+}
      animatedTitle: string = 'Приложение выполняет работу, подождите!';
      {$J+}
    var
      i: integer;
    begin
      Application.Title:= animatedTitle;
      for i:= 1 to (length(animatedTitle) - 1) do
        animatedTitle[i]:= Application.Title[i + 1];
      animatedTitle[Length(animatedTitle)]:= Application.Title[1];
    end;
    Чтобы включить или отключить анимацию, просто устанавливайте свойство Enabled таймера в True или False.