Jo an alle.
VIELEN DANK für eure Hilfe.
Soweit ich alle Code´s ausprobiert habe ist der erste am besten.
Aber den
Delphi-Quellcode:
ar
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;
kann ich nicht deklarieren. Ich bin zu dumm dafür.
VIELEN DANK AN ALLE.
Gruss,
Mindforce