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
Curtir tópico
+ 0
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;
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
Responder
Mais Posts
30/12/2015
Jhonny
Reformulei ajuda ai obrigado
https://www.devmedia.com.br/forum/como-criar-no-delphi-10-um-cronometro-regressivo-um-toca-musica-e-um-list-box-que-selecione-nomes-aliatorios/541128
https://www.devmedia.com.br/forum/como-criar-no-delphi-10-um-cronometro-regressivo-um-toca-musica-e-um-list-box-que-selecione-nomes-aliatorios/541128
Responder
Clique aqui para fazer login e interagir na Comunidade :)