woryon Postado Maio 25, 2004 Denunciar Share Postado Maio 25, 2004 alguém manda pra mim um código de contagem regressiva para quando chegar no 0 ela disparar um código, Por favor Gente.To nescessitado. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 jacsonsoares Postado Maio 25, 2004 Denunciar Share Postado Maio 25, 2004 Crie uma nova aplicação "new aplication", insira um componente DateTimePicker, passe a propriedade "kind" para "dtkTime". depois insira um timer e um Button1 apos isso copie o codigo fonte abaixo e coloque no lugar do original sua "unit"e teste. obs defina o tempo o dateteme e depois clique no botão para startar o timer que irá retroceder até zerar o tempo.Att, Jacson Soares; unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) DateTimePicker1: TDateTimePicker; Timer1: TTimer; Button1: TButton; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); var sTempo : String; begin sTempo := FormatDateTime('hh:mm:ss',DateTimePicker1.Time); if sTempo = '00:00:00' then begin Timer1.Enabled := False; showmessage('zerou o tempo!!'); Exit; end else DateTimePicker1.Time := (StrTotime(sTempo) - StrToTime('00:00:01')); end; end. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 woryon Postado Maio 26, 2004 Autor Denunciar Share Postado Maio 26, 2004 Tem como pegar a hora a ser feita a contagem regressiva de um Banco de Dados Atravez de um DBLabel? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Arlon Postado Maio 27, 2004 Denunciar Share Postado Maio 27, 2004 você pode usar um Label comum e no evento OnShow do formulário fazer o seguinte: Label1.Caption := TimeToStr(Time), com isso ele vai retornar a hora atual do sistema no label que você quer fazer a contagem regressiva.Mas, caso queira pegar a hora do banco de dados também pode fazer assim:Label1.Caption := DataModule.TabelaCampo.Value; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 woryon Postado Maio 27, 2004 Autor Denunciar Share Postado Maio 27, 2004 Deu incompatibilidade com o TDateTime Porque???? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
woryon
alguém manda pra mim um código de contagem regressiva para quando chegar no 0 ela disparar um código, Por favor Gente.
To nescessitado.
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.