Прокрутка текста заголовка

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

var

a: string;

procedure TForm1.FormCreate(Sender: TObject);

begin

a := ‘Look at here !…’;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

i: Integer;

begin

Application.Title := a;

Form1.Caption := a;

for i := 1 to (Length(a) — 1) do

a[i] := Application.Title[i 1];

a[Length(a)] := Application.Title[1];

end;

{/codecitation}

Добавить комментарий