...Scrolling Application Title on TaskBar?

Author: Agus Made
Homepage: http://www.geocities.com/agusmade/

Category: Strings

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base