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