problema no TTimer

[frnd]

Seguinte,

eu utilizo o TTimer para que a janela apareça durante 5 segundos, mas o que está estranho é assim...

tem hora que ele abre e fecha em menos de 5 segundos.... durante 1 2 segundos..... e depois funciona normal.

porque isso? Poderá ser o cursor ou algo semelhante?

[]s

[Denis Courcy]

Seguinte,

eu utilizo o TTimer para que a janela apareça durante 5 segundos, mas o que está estranho é assim...

tem hora que ele abre e fecha em menos de 5 segundos.... durante 1 2 segundos..... e depois funciona normal.

porque isso? Poderá ser o cursor ou algo semelhante?

[]s

Oi, 'frnd' !

1) observe os Conceitos abaixo:

TTimer usa um interval de 1000 milisegundos para cada segundo. Assim, 5 segundos = 5000.

TTimer usa um desvio da interrupção 8 (clock - relógio da máquina) liberada pelo Windows para controle de tempo Não há falha nesta transação.

2) Verifique se estes fatores estão sendo seguidos

Você está usando o TTimer na janela chamada? (Deveria)

O tempo começa a contar quando a janela é ativada e desativado quando a janela é fechada ou colocada em segundo plano?

(Timer.Enabled)

Você está usando o controle de laço para a contagem do tempo dentro do evento ONTIMER?

[frnd]

Bom,

aqui eu coloquei o TTimer como ENABLED = TRUE e com o INTERVAL = 1 na janela que ficará durante 5 s aparecendo, e com o seguinte código:

procedure TForm5.Timer1Timer(Sender: TObject);
begin
if (Timer1.Interval = 1) then
Timer1.Interval := 7000;
Form5.Close;
end;

[Vivendo&Aprendendo]

Olá frnd!

Se você deseja que seu form seja fechado em 5 segundos, então faça da seguinte forma:

1 - observe o que o colega Denis Courcy falou a respeito do Timer estar no form que será fechado;

2 - o laço que ele disse ficará da seguinte forma:

Var I : Integer;
begin
  Timer1.Enabled := True;
  For i := 1 to Timer1.Interval do
    If i = 5000 Then
      Form1.Close;
end;

Esse código deve estar no evento OnTimer do Timer. 5000 é o tempo de milisegundos que o form ficará aberto, ou seja, 5 sefundos, esse tempo deve ser declarado na propriedade Interval do componente.

Espero ter ajudado.

Abraços

[Jhonas]

Coloque na propriedade interval do timer 5000

e no evento OnTimer

procedure TForm5.Timer1Timer(Sender: TObject);

begin

Form5.Close;

end;

abraço