PC-Timer by _schulle_

ok .. das war's wohl .. also bei mir geht es jetzt wieder

 

also .. erstmal nen Grünen Daumen dafür

vll könntest ja noch in der ReadMe die "Beerware" entfernen


€: hasse gemacht .. well done

Aber das mit dem Bier in Herten steht noch

 

in delphi geproggt?

Warum gibst du eine Fehlermeldung als PopUp-Meldung aus?

bzw. nimm mal den Code aus der Schleife der dir das PopUp-Fenster ausspuckt, sonst bekommt man nachher sowas hier, wenn man die Fenster rüberzieht (siehe anhang) ausserdem braucht das Prog ewig lang wenn man es schließt bis alle Fenster zu sind xD

Aber ansonst schön gemacht, darf ich noch fragen wie du die Zeit "berechnest"?

//e: oh grad gesehen dass du den Quellcode schon gepost hast, schau mir den mal an

P.S. Ein Pausknopf wäre noch geilo :>

P.P.S. gib den armen Komponenten doch Namen :'( die wollen nicht nur Edit1 heißen sonder edtStunde, bzw edtMinute usw

 

ist trotzdem kein schöner programmier style mit den namen

oh, stimmt, hab den pausknopf ganz übersehen xD

achja, Timer mit 1000ms ist auf dauer nicht so genau da die Berechnungen auch Zeit brauchen, deswegen geht der irgendwann nach, hier wäre eine lösung mit gettickcount besser

Das Problem entsteht hier

Spoiler

procedure TForm1.Timer4Timer(Sender: TObject);
var buttonSelected : Integer;
begin
ShowWindow(handle,SW_MAXIMIZE);
Form1.FormStyle:=fsStayOnTop;
timer2.Enabled:=true;
buttonSelected := MessageDlg(Ertext,mtError, mbOKCancel, 0);
if buttonSelected = mrOK then
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=false;
timer4.Enabled:=false;
Application.terminate;
end;
if buttonSelected = mrCancel then
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=false;
time:=0;
edit1.Text:=inttostr(0);
edit2.Text:=inttostr(0);
edit3.Text:=inttostr(0);
button2.Visible:=false;
button3.visible:=false;
button1.visible:=true;
form1.Color:=clwhite;
timer4.enabled:=false
end;
end;

Da du einen Timer hast der sich immer wieder wiederholt wird die Zeile "buttonSelected := MessageDlg(Ertext,mtError, mbOKCancel, 0);" auch immer wieder ausgeführt und deshalb wird auch immer wieder ein neues fenster geöffnet

kennst du schon prozeduren bzw funktionnen? damit könnte man die Timer3/4 weglassen und in etwa so progen, dann würde das Problem wegfallen:


Timer 2 und 3 kann man in einen Timer setzen

Spoiler

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Form1.Color:=clred then Form1.Color := clwhite
else Form1Main.Color := clred;
end;

Den 4. Timer ersetzt du durch:

Spoiler

procedure TForm1.EndTimer; //muss noch unter Type hinzugefügt werden als procedure EndTimer
var buttonSelected : Integer;
begin
timer2.enabled := true;
ShowWindow(handle,SW_MAXIMIZE);
Form1.FormStyle:=fsStayOnTop;
buttonSelected := MessageDlg(Ertext,mtError, mbOKCancel, 0); //das Programm müsste an diese Stelle dann auf eine eingabe warten während im Hintergrund Timer 2 weiterläuft
timer2.disabled := false;//sobald eine eingabe gemacht wurde den Timer abstellen
if buttonSelected = mrOk then Application.terminate;
if buttonSelected = mrCancel then
begin
timer1.Enabled:=false;
time:=0;
edit1.Text:=inttostr(0);
edit2.Text:=inttostr(0);
edit3.Text:=inttostr(0);
button2.Visible:=false;
button3.visible:=false;
button1.visible:=true;
form1.Color:=clwhite;
end;
end;