Hallo manakinn,
Zitat von
manakinn:
Das LabelX.Caption := Format('Der Timer Interval ist auf %d eingestellt.', [TimerX.Interval]); funktioniert, aber der sagt, der Timer wäre auf 1000, obwohl der ja Random is :/ was auch noch cool wäre, die Timer anzeige abläuft ^^
Ich glaube, du solltest dir bei Gelegenheit mal ein gutes Delphi-Buch besorgen.
Gibt's bei Amazon.de ab 20€ Bestellwert sogar versandkostenfrei.
So, nun zu deiner (zweiten) Frage:
Zuerst ziehst du einen zweiten Timer auf dein Formular (sagen wir Timer2) und legst sein Intervall z.B. auf 1000ms fest.
Definiere dann in der TForm-Deklaration unter
private folgenden Member:
Delphi-Quellcode:
private
FTimeRemaining: Integer;
Dort, wo Timer1 aktiviert wird, schreibst du drunter:
Delphi-Quellcode:
FTimeRemaining := Timer1.Interval;
Timer2.Enabled := True;
Im Timer2.OnTimer-Event schreibst du folgendes (Label2 ist das Anzeige-Label):
Delphi-Quellcode:
Dec(FTimeRemaining, Timer2.Interval);
Label2.Caption := Format('
Noch %d ms!', [FTimeRemaining]);
Später (im Timer1OnTimer) nicht vergessen, Timer2 wieder zu stoppen (Timer2.Enabled := False).
Das war's!
Viel Spaß,
Marco