Link Fórum

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Entrar

Esqueci-me da senha

Últimos assuntos

» Spy Emergency 9.0.305.0
[Delphi7] Relogio Simples Icon_minitimeTer Out 29, 2013 9:59 am por noguche

» (Jogo) O que te lembra esta palavra ?
[Delphi7] Relogio Simples Icon_minitimeSáb Abr 28, 2012 2:53 am por Nexus

» Proximos bonecos do Grand chase (Idéia)
[Delphi7] Relogio Simples Icon_minitimeSáb Abr 28, 2012 2:48 am por Nexus

» Ola pessoal!!!
[Delphi7] Relogio Simples Icon_minitimeQua Jun 22, 2011 12:31 pm por 'Apple~

» Sign Warcraft avaliem
[Delphi7] Relogio Simples Icon_minitimeSáb Jun 04, 2011 11:49 am por -Viper

» Criando Asa level 3
[Delphi7] Relogio Simples Icon_minitimeQui Jun 02, 2011 6:00 am por Nexus

» Entrega para BRUNO ;)
[Delphi7] Relogio Simples Icon_minitimeDom maio 29, 2011 3:09 pm por Nexus

» Estudos Gerais
[Delphi7] Relogio Simples Icon_minitimeDom maio 29, 2011 2:43 pm por вrυทσ

» Jogo do 1 até 2000
[Delphi7] Relogio Simples Icon_minitimeDom maio 29, 2011 2:39 pm por вrυทσ

Parceiros

Nosso Banner

[Delphi7] Relogio Simples Para-link-forum
Caso queira adicionar nosso banner em seu fórum aqui está

3 participantes

    [Delphi7] Relogio Simples

    avatar
    Lucas
    Membros
    Membros


    Mensagens Mensagens : 58
    Pixels Pixels : 367
    Data de inscrição : 13/05/2011
    Localização Localização : No quinto dos infernos // Zoa sei lá no PC

    [Delphi7] Relogio Simples Empty [Delphi7] Relogio Simples

    Mensagem por Lucas Sáb maio 14, 2011 7:17 pm

    Olá pessoal, aqui vou ensinar a botar um relogio no seu programa, muito basico e facil.

    Adicione um Timer [palheta System]
    Adicione uma Label [palheta Standard]

    Clique 2 vezes no timer, apague todo o codigo e coloque esse:


    Código:
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
    DateTime : TDateTime;
    str : string;
    begin
    DateTime := Time;
    str := TimeToStr(DateTime);
    label1.Caption := str;
    end;

    Compile e teste!

    Agora vamos botar botoes para parar e iniciar o relogio!

    Adicione um Button [palheta Standard]

    Coloque o Timer para False

    De 2 clicks no button, apague tudo e coloque:

    Código:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    if Timer1.Enabled=False then
    Timer1.Enabled:=True
    else
    Timer1.Enabled:=False
    end;

    Abraços ~!
    Post: Lucas
    Nexus
    Nexus
    Amador
    Amador


    Mensagens Mensagens : 262
    Pixels Pixels : 1137
    Data de inscrição : 08/05/2011
    Idade Idade : 26
    Localização Localização : Rio De Janeiro

    [Delphi7] Relogio Simples Empty Re: [Delphi7] Relogio Simples

    Mensagem por Nexus Sáb maio 14, 2011 7:34 pm

    Muito bom gostei ira ajudar muitas pessoas que não sabe
    avatar
    Lucas
    Membros
    Membros


    Mensagens Mensagens : 58
    Pixels Pixels : 367
    Data de inscrição : 13/05/2011
    Localização Localização : No quinto dos infernos // Zoa sei lá no PC

    [Delphi7] Relogio Simples Empty Re: [Delphi7] Relogio Simples

    Mensagem por Lucas Sáb maio 14, 2011 7:37 pm

    Realmente delphi é mais facil que C++, é facim mesmo fazer esse relógio ^^
    kayqueg
    kayqueg
    Membros
    Membros


    Mensagens Mensagens : 71
    Pixels Pixels : 363
    Data de inscrição : 11/05/2011
    Idade Idade : 25
    Localização Localização : Itapecerica da Serra

    [Delphi7] Relogio Simples Empty Re: [Delphi7] Relogio Simples

    Mensagem por kayqueg Sáb maio 14, 2011 8:46 pm

    Esse relogio fico maneiro =)

    Conteúdo patrocinado


    [Delphi7] Relogio Simples Empty Re: [Delphi7] Relogio Simples

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sex Mar 29, 2024 4:40 am