Buscar por:

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

Código

{ 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 é? }