Assim vai funcionar. procedure TForm1.Timer1Timer(Sender: TObject); begin
label1.caption := copy(texto,1, posicao); inc(posicao) ; if posicao > length(texto) then posicao := 1; end; procedure TForm1.FormCreate(Sender: TObject); begin texto := 'Olá mundo!'; posicao := 1; end; Eduardo werelli escreveu: > > Olá Anderson! > > Fiz como me sugeriu mas não deu, da uma olhada no código > atenciosamente, > werelli > > interface > > uses > Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, > Dialogs, StdCtrls, ExtCtrls; > > type > TForm1 = class(TForm) > Timer1: TTimer; > Label1: TLabel; > procedure Timer1Timer(Sender: TObject); > procedure FormCreate(Sender: TObject); > private > posicao : integer; > texto : string; > { Private declarations } > public > { Public declarations } > end; > > var > Form1: TForm1; > > implementation > > {$R *.dfm} > > procedure TForm1.Timer1Timer(Sender: TObject); > begin > label1.caption := copy(texto,1, posicao); > inc(posicao) ; > if posicao > length(texto) then posicao := 0; > > end; > > procedure TForm1.FormCreate(Sender: TObject); > begin > texto := 'Olá mundo!'; > posicao := 0; > end; > end. > > __________________________________________________ > Fale com seus amigos de graça com o novo Yahoo! Messenger > http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/> > > [As partes desta mensagem que não continham texto foram removidas] > > _______________________________________________________ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/