como criar um marcador de tempo no delphi To tendo um pouco de dificuldade
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
Curtidas 0
Melhor post
Raimundo Pereira
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;
GOSTEI 1
Mais Respostas
Jhonny
30/12/2015
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
GOSTEI 0