Also ich hab das jetzt soweit eingebaut aber wenn ich halt auf den Startbutton klicke zählt der countdown garnicht runter hab schon selbst versucht das hinzukrigen und hab im internet nach lösungen gesucht aber hat nicht geklappt?
Hab auch die Startbuttons reingebaut und das DateUtility
Mein Quellcode sieht jetzt so aus:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
| procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
Timer1.Enabled:=False;
Timer1.Interval:=1000;
edit5.Text:='00:00:10';
end;
procedure TForm1.Button10Click(Sender: TObject);
var i : integer;
begin
for i := 1 to 1000 do begin
Button1Click(Sender);
label7.Refresh;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit5.text:=timetostr(incsecond(strtotime(edit5.text),-1));
if Edit5.Text ='00:00:00'then Timer1.Enabled:=False;
if Edit5.Text ='00:00:00'then ShowMessage('Zeit um !');
end;
procedure TForm1.StartClick(Sender: TObject);
begin
Timer1.Enabled:=True;
end;
procedure TForm1.StopClick(Sender: TObject);
begin
Timer1.Enabled:=False;
end; |
