Category: Strings
Title: Scroll Application Title on TaskBar
Date added: 15.03.2006
Hits: 1926
procedure TForm1.Timer1timer(Sender: TObject);
begin
Application.title := Copy(Application.title, 2,Length(Application.title)) +
Application.title[1];
Application.title := Application.title[Length(Application.title)] +
Copy(Application.title, 1,Length(Application.title) - 1);
end;