Fechar o Form depois de 5 minutos aberto

Delphi

28/01/2021

Bom dia à todos!
Gostaria de que alguém me ajudasse a fechar um form automaticamente depois de, aproximadamente 5 minutos de aberto, através do timer .
Adailso Cosme

Adailso Cosme

Curtidas 0

Melhor post

Emerson Nascimento

Emerson Nascimento

28/01/2021

se você trabalhar com TTimer, altere a propriedade Interval para o período desejado.
procedure TFormX.FormShow(Sender: TObject);
var
  minutos_ate_fechar: byte;
begin
  minutos_ate_fechar := 5; // 5 minutos
  Timer1.Enabled := False;
  Timer1.Interval := (1000 * 60) * minutos_ate_fechar;
  Timer1.Enabled := True;
end;

// evento OnTimer do objeto Timer
procedure TFormX.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False; // desabilita o timer
  FormX.Close;
end;

GOSTEI 1

Mais Respostas

Adailso Cosme

Adailso Cosme

28/01/2021

Ficou perfeito!
Muito obrigado!
GOSTEI 0
POSTAR