Mega Code Archive

 

Categories / Delphi / Examples

 

Scrolling Application Title on TaskBar

Title: Scrolling Application Title on TaskBar? procedure TForm1.Timer1timer(Sender: TObject); begin //left direction Application.title := Copy(Application.title, 2,Length(Application.title)) + Application.title[1]; // or (!!!) right direction Application.title := Application.title[Length(Application.title)] + Copy(Application.title, 1,Length(Application.title) - 1); end;