timer - mostrar formulario a cada 5 minutos

Delphi

09/07/2008

Pessoal,

Gostaria de mostrar um formulario do meu sistema a cada 5 minutos.

como eu uso isso usando o timer do delphi


no aguardo

Evandro

acessam:
www.apostilaweb.com.br


Evandro_araujo

Evandro_araujo

Curtidas 0

Respostas

Altingon

Altingon

09/07/2008

Nunca fiz mas a logica deve ser esta:

Grave a hora atual em uma variavel ai no ontimer compare se a hora da variavel + 5min = hora atual.

Valeu


GOSTEI 0
Fabianosales

Fabianosales

09/07/2008

Basta instanciar o formulário que se deseja mostrar e exibí-lo no evento OnTimer. Supondo que o formulário a ser exibido se chama ´frmPop´:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  if not(Assigned(frmPop)) then
    begin
      frmPop := TfrmPop.Create(Application);
    end;
  frmPop.WindowState := wsNormal;
  frmPop.Show;
end;

E, para evitar memory leak, quando for fechar o formulário principal da sua aplicação, destrua o objeto.
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if (Assigned(frmPop)) then
     FreeAndNil(frmPop);
end;



GOSTEI 0
Marco Salles

Marco Salles

09/07/2008

pq que tem que instancia-lo a cada cinco minutos ????

pq não somente mostra-lo e esconde-lo ???


GOSTEI 0
Fabianosales

Fabianosales

09/07/2008

Mas o código que postei está fazendo isso mesmo Marco. O formulário só é instanciado se for preciso :
  if not(Assigned(frmPop)) then
    begin
      frmPop := TfrmPop.Create(Application);
    end



GOSTEI 0
POSTAR