timer - mostrar formulario a cada 5 minutos

Question

Pessoal,Gostaria de mostrar um formulario do meu sistema a cada 5 minutos.como eu uso isso usando o timer do delphino aguardoEvandroacessam:www.apostilaweb.com.br...

Altingon · Answer

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...

Fabianosales · Answer

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;

Marco Salles · Answer

pq que tem que instancia-lo a cada cinco minutos ????pq n�o somente mostra-lo e esconde-lo ???...

Fabianosales · Answer

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

F�rum timer - mostrar formulario a cada 5 minutos #360896