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