Componente TTimer

17/09/2004

Olá pessoal, a minha questão não se se dá para fazer sem o TTimer mas eu preciso do seguinte exemplo:

no evento ontimer do ttimer ele mude o caption de um label de 2 em 2 segundos(serão 2 textos) por exemplo:

label.caption:=´Texto 1´;

conta 2 segundos

label.caption:=´Texto 2´;

exit;//parar o texto


Tap_pedroso

Respostas

17/09/2004

Eduprp

Colega

Utilize o Sleep

Label1.Caption:= ´Texto 1´;
Sleep(2000);
Label1.Caption:= ´Texto 2´;

A única coisa que o Sleep causa uma pausa na sua aplicação.

Obs. Sleep se encontra na unit Windows. tem que colocá-la na cláusula USES.

Eduardo M. Pereira


Responder Citar

17/09/2004

Inutaishou

Desculpe ´cair de pára-quedas´, mas o Sleep´não trava o aplicativo? Tem como fazer sem trava-lo?

[]´s,


Responder Citar

17/09/2004

Marcelo Saviski

declare uma variavel fora da procedure do evento

b: Boolean;


no Timer:

if b then
  Label1.caption := ´Texto1´
else
  label1.Caption := ´Texto2´;
b := not b;


e deixe a propriedade Interval em 2000


Responder Citar

17/09/2004

Paulo_amorim

Olá

Por que não usar o TTimer?

Label1.Text := ´Texto1´;
tmrTempo.Enabled := True;

No Timer vc coloca o Label2 pra receber e atribui Enabled := False..

Espero que ajude
Até+


Responder Citar