Timer

[Herbert M. Dias Paiva 0]

Uma outra duvida uhahuuha =) como que eu uso o timer para fazer assim a cada 10 segundos em um edit ele muda o nome assim:

 

no Edit1 esta escrito Teste dae se passa 10 segundos o timer insere Teste 2 no Edit1...

 

 

Tem como ????

 

Vlw galera =>)

[shini 318]

deixa o interval do timer em 10000, cada 10seg ele vai atuliza o conteudo do edit2 com o que estiver em dentro de edit1

[Discorpio 1]

Bom dia Herbert M. Dias Paiva.

 

Que tal fazer assim:

 

Primeiro, como disse o nosso amigo, configure a propriedade Interval do TTimer para 10000, isto fará que o seu evento OnTimer seja disparado a cada 10 segundos.

 

Segundo, crie uma variável do tipo Integer no bloco private da classe, chamada de Incremento, assim:

 

type
	TForm1 = class(TForm)
	private
		 { Private declarations }
		  Incremento: Integer;
	public
		 { Public declarations }
	end;

No Evento OnTimer do TTimer, codifique assim:

 

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Edit1.Text := 'Teste ' + IntToStr(Incremento);
   Inc(Incremento);
   if Incremento = 10 then Incremento := 0;
end;

Repare que quando o valor do Incremento ultrapassar a 10, ele zera a contagem e começa tudo de novo.