Zitat von
nastytrouble:
Delphi-Quellcode:
[...]
procedure TForm2.Timer1TimerTimer(Sender: TObject);
begin
Timer1Timer.Enabled := false;
end;
// Kommentar von xZise: Kannst du auch im Deignmodus gemacht (sieht besser aus, wenn der Code länger ist)
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.show;
form2.Hide;
end;
// Kommentar von xZise: o.O Kannst doch alles über Form1 laufen lassen
procedure TForm2.Button2Click(Sender: TObject);
begin
x:=StrToInt(edit1.text);
timer1timer.enabled:=true;
repeat
begin
i:=i+1;
sleep(1000)
end
until (i=x);
if (i=x) then ShowMessage(IntToStr(x)+' sec sind vorbei');
end;
// Kommentar von xZise: Denn Timer brauchst du gar nicht mehr
So... damit du nicht verwirrt bist: "Sleep" ist unabhängig und braucht keinen Timer mehr
Und ansonsten wurde das schon alles genannt!
(Tipp: Mache mal folgende kleine Änderungen:
Delphi-Quellcode:
i := i + 1 >>> inc(i)
if (i = x) then [...] >>> Interval auf X setzen (ggf. X * 1000)