XX min Timer mit nachfolgender Aktion

[xZise]

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)