Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

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

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

  • Поместите 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.


 

Добавить комментарий


Защитный код
Обновить