Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Zeitanzeige in Label


chickenfigt1989 - Mo 24.01.11 13:38
Titel: Zeitanzeige in Label
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;


bummi - Mo 24.01.11 14:06

Beispiel liegt bei


chickenfigt1989 - Mo 24.01.11 15:45

Hallo
Danke für die schnelle hilfe.
Es ist zwar dass was ich gesucht habe, aber mit Radiogroupboxen wird zuviel
Platz weggenommen.
Ich hab es mal anders gemacht was eig. auch so passt allerdings wollte ich bei den
Label wo steht: Der Anbau voN Salat läuft wollte ich die Restzeit haben ist das auch möglich?

Lg


bummi - Mo 24.01.11 15:51

Ist doch alles in meinem Codebeispiel drin .....

Du brauchst außer
FGrowTimesSalat:TGrowTimes;
FSalatStarted,FSalatGrowing:Cardinal;
halt zusätzliche Variablen für Deine anderen Gemüse...


chickenfigt1989 - Mo 24.01.11 15:52

Ach so dachte des wär ein unterschied.
Oke dann schau ich mir das mal an
Vielen Dank nochmal an dich bummi

lg