Countdown

[HuxXx]

So ungefaehr...:
(Das is eigentlich das gleiche was der ueber mir beschrieben hat... )

Delphi-Quellcode:

var zaehler: Integer = 1920;  // Globale Variable

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);  // Interval = 1000
begin
zaehler:= zaehler - 1;

// Wenn der Countdown vorbei ist...
if zaehler <= 0 then begin
Timer1.Enabled:=false;
ShowMessage('Diese 32 Minuten sind um... MöpMöp...');
end;

end;

P.S:

Zitat von EDatabaseError:

[denkanstoß]Man nehme einen Timer stellt den intervall auf 1000. Man nehme eine globale variable mit dem wert 1920000. In jedem on timer ereignis ziehst du eins von der variable ab. Bei 0 stoppst du den timer durch disablen. fertig[/denkanstoß]

mfg

Wenn du eine Globale Variable mit dem Wert 1920000 nimmst, dann musst du auch jedes mal 1000 abziehen.
Wenn du nur 1 abziehst, waeren das dann 32000 Minuten...

Greetz by Hux...