Siga-nos em...
Follow us on Twitter Follow us on Facebook Watch us on YouTube
Registro


HGIDC
Resultados 1 a 1 de 1
  1. #1

    Avatar de FusioN
    Data de Ingresso
    Jul 2010
    Localização
    Rio de Janeiro - Brasil
    Idade
    23
    Posts
    434
    Agradecido
    17
    Agradeceu
    13
    Peso da Avaliação
    17

    Padrão [Medio]Criando um Cronômetro

    Declare uma variavel na sessão Private:

    Código:
      
    Tempo: TDateTime;
    Pra quem nao sabe declara a variavel:

    Vc vai no code e coloka:


    Código:
    tempo: TDateTime;
    Em baixo de:


    Código:
    var
    Form1: TForm1;
    2º Coloque um TBitBtn, um TTimer e um TLabel no form;

    3º coloque a propriedade Caption do TBitBtn como Iniciar;

    4º coloque a proprieade Enabled do TTimer como false;

    5º coloque a propriedade Interval do TTimer como 1;

    6º No Evento OnTimer do TTimer e digite:


    Código:
    label1.caption:=FormatDateTime('HH:MM:SS:ZZZ',Time - tempo);
    7º No OnClick do Botão digite:


    Código:
    if not timer1.enabled then
    tempo:=time;
    timer1.enabled:=not timer1.enabled;
    if bitbtn1.caption='Parar' then
    bitbtn1.caption:='Iniciar'
    else
    bitbtn1.caption:='Parar';
    Creditos: vulckanoO

    Fonte: Pro Code
    Última edição por FusioN; 17-08-2010 às 11:16 PM.

 

 

Informações de Tópico

Usuários Navegando neste Tópico

Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)

Tópicos Similares

  1. |Tutorial| [Medio]Criando um AutoClick Usando 2 Metodos
    Por FusioN no fórum Delphi
    Respostas: 4
    Último Post: 13-03-2011, 06:25 PM
  2. |Tutorial| [Medio]Status de um Servidor
    Por FusioN no fórum Delphi
    Respostas: 0
    Último Post: 17-08-2010, 09:39 PM
  3. |Tutorial| [Medio]Alterar Volume
    Por FusioN no fórum Delphi
    Respostas: 0
    Último Post: 27-07-2010, 01:33 PM
  4. |Tutorial| [Medio]Trocando Resolução do PC
    Por FusioN no fórum Delphi
    Respostas: 0
    Último Post: 27-07-2010, 01:28 PM
  5. |Tutorial| [Medio]Criando Renovador de IP
    Por FusioN no fórum Delphi
    Respostas: 4
    Último Post: 23-07-2010, 09:34 PM

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •