como criar um marcador de tempo no delphi To tendo um pouco de dificuldade

30/12/2015

0

assim eu encontrei vários códigos mais eu queria criar um contador de tempo regressivo que eu pudesse colocar exp. 1 minuto e ele fosse diminuindo 59 , 58 , 57 ai quando chegasse em 00 desse um bip mostrando que acabou e para completar eu to com o delphi 10 que eu não sou familiarizado porque já tenho muito tempo sem usar esse programa gostaria que me ajudassem
Jhonny

Jhonny

Responder

Post mais votado

30/12/2015

Boa tarde,

var
Form1: TForm1;

VAR
TEMPO:INTEGER;
implementation

{$R *.dfm}


Componentes
Timer1: TTimer;
Edit1: TEdit;

No evento onkey press do edit1 coloque


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if KEY=#13 then
BEGIN
if (Edit1.Text<>'') AND (Edit1.Text<>'0') THEN
BEGIN
Edit1.Enabled:=FALSE;
TEMPO:=StrToInt(Edit1.Text);
Timer1.Enabled:=TRUE;
END
ELSE
BEGIN
ShowMessage('Tempo não definido');
Edit1.SetFocus;
END;
END;
end;

No evento do timer coloque


procedure TForm1.Timer1Timer(Sender: TObject);
begin
TEMPO:=TEMPO-1;
Edit1.Text:=IntToStr(TEMPO);
if TEMPO=0 then
BEGIN
Timer1.Enabled:=FALSE;
Beep;
Edit1.Enabled:=TRUE;

END;
end;

Raimundo Pereira

Raimundo Pereira
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar