ich hab mir ne kleine zeitanzeige in mein prog reingeschrieben...
der Timer hat das Interval 1000 (laut delphi hilfe entspricht das 1 sec)
und zählt die zeit die man für ein lvl hat einfach nur runter...
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TForm1.zeitTimer (Sender: TObject);
begin
If tlsec>0 then
begin
dec(tlsec);
end
Else
begin
if tlmin>0 then
begin
dec(tlmin);
tlsec:=59;
end;
Else
begin
loose.enabled:=true;
end;
end;
zeitm.Caption:=INTTOSTR(tlmin);
zeits.Caption:=inttostr(tlsec);
end; |
so das dumme ich nur das der Timer in den ersten 2-3 sec normal läuft und dann immer langsamer wird (spätestens nach 10sec passiert NIX!!! mehr)
die einzige Möglichkeit mir das zu erklären wäre das delphi die ressis zu knapp werden und deshalb der Timer aufhört zu laufen... das kann ich mir aber nur schwer vorstellen weil ich 1,5 gig und 256 mb ram habe.... und der Taskmanager zeigte auch keinen Ausschlag wenn das prog läuft....
achja nochwas
tlsec und tlmin sind Variablen vom typ integer
loose ist ein Timer der die "du hast verloren Sequenz" einleitet
zeitm und zeits sind 2 Label welche als Uhr fungieren
öhhhmm...... ok