Delphi dicas

Como ativar o relógio em um label ou um edit

{ Para ativar a hora em um Label ou um Edit é muito simples, para isso precisamos dos seguintes componentes: }



// TLabel - Paleta Standard {no caso de querer ativar a hora em um Label}



// TEdit - Paleta Standard {no caso de querer ativar a hora em um Edit}



// TTimer - Paleta System



{ dê 2 cliques no componente TTimer e digite o seguinte código: }



// LABEL



procedure TF_Principal.Timer1Timer(Sender: TObject);

begin



        Label1.Caption:=TimeToStr(now);



end;



end.





// EDIT



procedure TF_Principal.Timer1Timer(Sender: TObject);

begin



        Edit1.Text:=TimeToStr(now);



end;



end.





{ Simples não é? }

por : Tiago Jesus Lemos De Assis