procedure TForm1.tmr1Timer(Sender: TObject); const {$J+} animatedTitle: string = ' Delphi '; {$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; 通过控制Timer 的Enable or disable属性来控制闪烁