Como fazer um texto rodar!

Question

preciso de um mode de fazer um texto com varias linhas ir rodando ou seja seria o mesmo que eu colocar um texto num memo e a primeira linha fose sendo apagada e todo o texto subice uma linha ate se acabarem todas as linha.

Guilherme · Answer

tente isso dentro de um timer var Texto : String; begin Texto := StatusBar1.Panels[0].Text; StatusBar1.Panels[0].Text := Copy(Texto,2,Length(Texto))+Texto[1]; end;...

F�rum Como fazer um texto rodar! #287141