您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

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

时间:2011/9/3 15:30:10 点击:

  核心提示:拖动TTimer组件TTimer组件事件如下:const {$J+} animatedTitle : string = ' Animated Application''s TaskBar Title...
  1. 拖动TTimer组件
  2. 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

  3. 通过控制Timer 的Enable or disable属性来控制闪烁

作者:站长 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号