Como fazer um texto rodar!
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.
Mariolsc123
Curtidas 0
Respostas
Guilherme
06/07/2005
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;
var
Texto : String;
begin
Texto := StatusBar1.Panels[0].Text;
StatusBar1.Panels[0].Text := Copy(Texto,2,Length(Texto))+Texto[1];
end;
GOSTEI 0