Refresh

[marvazoler 0]

Olá galera beleza?

 

Seguinte

 

Como faz com um rotina sem fiz no form

 

 

exemplo:

 

if car_5400.Checked then

begin

lbl_5400.Visible:=true;

if FileExists('c:/teste/*00000087*.emp') then

begin

lbl_5400.Color:=clYellow;

end;

end

else

lbl_5400.Visible:=false;

if car_4370.Checked then

begin

lbl_4370.Visible:=true;

if FileExists('c:/teste/*00000033*.emp') then

begin

lbl_4370.Color:=clYellow;

end;

end

else

lbl_4370.Visible:=false;

 

 

Eu gostaria que esta rotina ficasse se repetindo a cada 5 segundos

 

Tem como, fazer no formulario em delphi?

 

Desde já agradeço

[brsamn 0]

Coloque um timer, na propriedade Inteval o valor 5000 e no evento ontimer a rotina a ser realizada.

 

Um simples exemplo:

 

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:= True;
end;
// Você deixa a propriedade enabled como false e ao clicar no botão deixa true

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.Add('A');
end;
//No momento que o timer iniciar ele adcionará a letra A nas linhas de um memo a cada 5 segundos