Zeit ablaufen lassen

[Danny87]

stimmt.
aus dem grund ist es ja auch nicht die optimalste lösung

[Klaus01]

wenn es nicht einfrieren soll
delay nehmen.
infos dazu gibt es hier http://www.swissdelphicenter.ch/torr...code.php?id=55

Grüße
Klaus

[TeronG]

Zitat von Schaedel:

Mit sleep friest du aber das ganze Programm ein ... uah...

hier in der DP giebts aber auch n Sleep ohne sleep ^^ (Link)

[Angel4585]

Delphi-Quellcode:

var
 FTime : TDateTime;

procedure StartCountdown(AnzSekunden : Integer);
begin
FTime:=IncSecond(Now,AnzSekunden);
Timer1.enabled:=True;
end;

//Timerintervall auf 1000
procedure TForm1.Timer1Time(Sender : TObject);
begin
if Now > FTime then
 begin
 ShowMessage('BOOOM');
 Timer1.enabled:=False;
 end;
end;

mein Vorschlag.. ungetestet

Edit: Für IncSecond musst du DateUtils in die Uses Liste eintragen

[mindforce]

Aja ist ja klar. Schon verstanden.
Hätte ich wissen müssen. Hab aber stress mit meinem PC.

WOW vielen Dank für eure Antrworten.

Ich probier ALLES mal aus. Kann aber noch dauern =).

Gruss,

Mindforce

[Angel4585]

lol selbst mit dsl brauchts 20 Sekunden um des Bild zu öffnen.. mach dich das nächste mal bitte jpg
danke

[Daniel]

@mindforce: Bitte kennzeichne Dein OT-Attachment auch als solches, um anderen den fast 3 Mbytes großen Download zu ersparen. Im Übrigen verbrätst Du damit nur unsere Plattenkapazität und Bandbreite.

[mindforce]

Oh sorry. Scheiss auflösung hab ich.

Ich änder es mal.

[/size]/edit: Nein ich bin der dumme, der nicht nichtig etwas erklären kann. Ich bion der dumme 13 Jährige.

[zecke]

Ich verstehe den Sinn immer noch nicht. Erleuchtet mich, ich fühle mich dumm

edit nach Angel: Sollte eine Kurzform für "ich habe das Gefühl ich bin dumm" sein - aber ich ticke anders, ich weiß

[Angel4585]

[OT]
zecke du verwechselst was: fühlen<>sein
[/OT]