time do delphi
Olá , pessoal. Boa noite!
Se possível quero uma ajuda de vocês, sou iniciante em delphi e estou tentando fazer um programa que fique aparecendo uma janela de mensagem a cada 5 min. Vi que no delphi tem o TIMER, não não estou conseguindo isso acontecer. Estou usando a verão do delphi XE3.
Até agora só fiz isto.
procedure TForm1.Timer1Timer(Sender: TObject);
var Hora_agora:String;
begin
if Hora_agora = Timetostr(Now) then
begin
ShowModal(TForm1);
end;
end;
end.
Se possível quero uma ajuda de vocês, sou iniciante em delphi e estou tentando fazer um programa que fique aparecendo uma janela de mensagem a cada 5 min. Vi que no delphi tem o TIMER, não não estou conseguindo isso acontecer. Estou usando a verão do delphi XE3.
Até agora só fiz isto.
procedure TForm1.Timer1Timer(Sender: TObject);
var Hora_agora:String;
begin
if Hora_agora = Timetostr(Now) then
begin
ShowModal(TForm1);
end;
end;
end.
Frederico Lima
Curtidas 0
Respostas
Marcos Oliveira
31/03/2014
Frederico,
Tente usar o Timer. Programe a propriedade "Interval" com 300000 (trezentos mil), uma vez que o intervalo dele é em milisegundos.
Ou seja: Um segundo = 1000. Um minuto: 60000. Cinco minutos: 300000.
Deixe a propriedade Enabled como True e programe seu código no evendo OnTimer. Creio que isso irá funcionar.
Att,
Marcos
Tente usar o Timer. Programe a propriedade "Interval" com 300000 (trezentos mil), uma vez que o intervalo dele é em milisegundos.
Ou seja: Um segundo = 1000. Um minuto: 60000. Cinco minutos: 300000.
Deixe a propriedade Enabled como True e programe seu código no evendo OnTimer. Creio que isso irá funcionar.
Att,
Marcos
GOSTEI 0