Dentro de um Timer, mas executar s� uma vez

Question

Tenho um If dentro de um Timer que fica analisando se o computador estar conectado a Internet, quando conectado quero que ele abra um Form2 e me mostre uma informa��o na tela. Acontece que esse Form2 ...

R�mulo Barros · Answer

Crie uma vari�vel global para controlar a abertura do form:

Interface
Uses....
Var
  Con : Integer;
...
....
...

EventoDoTimer
Begin
  If(Conectou = 0)Then
   If(SeConectou)Then
   Begin
         Conectou := 1;
         Formulario := TFormulario.Create(Owner);
   End;
End;
...

Initialization
   Con := 0;
End.

F�rum Dentro de um Timer, mas executar s� uma vez #213713