Dentro de um Timer, mas executar só uma vez

Delphi

12/02/2004

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 fica direto na tela enquanto estou conectado, não dá pra fechar. Queria que ele abrisse o Form2 mas me desse a possibilidade de fechá-lo e quando desconectar e conectar-se novamente na Internet ele abrisse novamente deixando eu fechá-lo.
Ou será se não é como estou fazendo?
Obrigado.


Fariasps

Fariasps

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

12/02/2004

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.



GOSTEI 0
POSTAR