Delphi中闪动应用程序在任务栏的标题

拖动TTimer组件
TTimer组件事件如下： 
const
  {$J+}
  animatedTitle : string = ' Animated Application''s TaskBar Title ';
  {$J-}
var
  cnt: Integer;
begin
  Application.Title := animatedTitle;
  for cnt := 1 to (Length(animatedTitle) - 1) do
    animatedTitle[cnt] := Application.Title[cnt + 1];
  animatedTitle[Length(animatedTitle)] := Application.Title[1];
end;
常量animatedTitle 是typed constant
通过控制Timer 的Enable or disable属性来控制闪烁
本文来自Delphi之窗，原文地址：http://www.52delphi.com