Criar um Relógio no Delphi

Primeiro insira o componente Timer, que se encontra na aba System, e um Panel, que está na aba Standard.
Dê um duplo clique no Timer e insira o seguinte código:

procedure TFormPrincipal.Timer1Timer(Sender: TObject);
var
DateTime : TDateTime;
str : string;
begin
DateTime := Time;
str := TimeToStr(DateTime);
panel1.Caption := str;
end;

Fonte: http://www.forumweb.com.br/foruns/index.php?/topic/41056-relogio-no-delphi/

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s