[
OT="Sorry, aber ich konnte nicht anders ..."]
Zitat von
malo:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//time = integer-variable. Im OnCreate des Forms auf 1 gesetzt.
time := time + 1;
if time = 12 then ExitWindowsEx(EWX_SHUTDOWN, 0);
if time = 2 then Label2.Caption := '9';
if time = 3 then Label2.Caption := '8';
if time = 4 then Label2.Caption := '7';
if time = 5 then Label2.Caption := '6';
if time = 6 then Label2.Caption := '5';
if time = 7 then Label2.Caption := '4';
if time = 8 then Label2.Caption := '3';
if time = 9 then Label2.Caption := '2';
if time = 10 then label2.Caption := '1';
if time = 11 then label2.Caption := '0';
end;
Da läuft es einem kalt dem Rücken 'runter ... *schauder*
(was ist, wenn du z.B. einen Countdown von ein einer Minute machen möchtest statt 10 sek. ?)
Ich schlage vor, den obigen Quellcode mit folgendem zu ersetzten:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec (time);
Label1.Caption := time;
if (Time = 0)
then
begin
Timer1.Enabled := false;
WasMachen;
end;
end;
[/
OT]