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

30/12/2015

5

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
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;
Responder