Hallo,
Ich bins mal wieder.
Ich habe einen Button auf meinen Formular und eine Ttimer komponente.
Wenn ich den Button anklicke beginnt der Timer zu laufen.
Jetzt will ich aber wenn der timer 5min läuft das in ein Label die zeit angezeigt
wird, und runterzählt.
Könnt ihr mir vielleicht ein paar Tipps geben?
Hier mein Quellcode:
Delphi-Quelltext
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:
| procedure TForm1.Button1Click(Sender: TObject);
begin
if radiobutton1.checked then
begin
salat.Interval:=300000;
salat.Enabled:=true;
Showmessage('Anbau begonnen');
end;
begin
if radiobutton2.checked then
begin
salat.Interval:=240000;
salat.Enabled:=true;
Showmessage('Anbau begonnen');
end;
begin
if radiobutton3.checked then
begin
salat.Interval:=120000;
salat.Enabled:=true;
Showmessage('Anbau begonnen');
end;
begin
if radiobutton4.checked then
begin
salat.Interval:=120000;
salat.Enabled:=true;
Showmessage('Anbau begonnen');
end; |
