Pohyblivý text v titulkovém pruhu

Začneme opět něčím vizuálním. Ukážeme si, jak velmi jednoduchým až primitivním způsobem s využitím Timeru animovat (či chcete-li rolovat) text v titulkovém pruhu okna. Jaká je možnost využití takového efektu? Buď pouze pro efekt samotný a nebo v případě příliš dlouhého textu v titulku.
Umístěte tedy na formulář Timer a nastavte vhodný časový interval. To je velmi důležité i s ohledem na délku titulku. Zbytek kódu, tedy hlavně událost OnTimer, vypadá takto:
.
.
.
private
{ Private declarations }
Titulek : String;
.
.
.

procedure TForm1.FormCreate(Sender: TObject);
begin
Titulek := ' Sem umístěte text vašeho titulkového pruhu aplikace ';
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
i : Integer;
begin
Application.Title := Titulek;
Form1.Caption := Titulek;
For i := 1 to Length(Titulek) do Titulek[i] := Application.Title[i+1];
Titulek[Length(Titulek)] := Application.Title[1];
end;
Nezapomeňte vložit před i za text titulku vhodnou mezeru, aby došlo k dostatečnému oddělení.