nada a ver...
a intenção de colocar POSICAO := 0 é justamente pra dar um intervalo pra se ler
o primeiro caracter...
senão, já começa aparecendo, daí fica um efeito esquisito...
----- Original Message -----
From: Eduardo Castro Alves
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 03, 2007 11:04 PM
Subject: Re: [delphi-br] Anderson, fiz assim mas não deu
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/
__________ Informação do NOD32 IMON 2167 (20070403) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
