Pause in Timer setzen

[sniper_w]

ich weiss nicht ob das mit Enable geht, musst du halt probieren.

EDIT..
Geht nicht.
Du könntest eine Timer mit Interval = 1000 einsetzen und in OnTimer eine Var erhöhen.

So in etwa

Delphi-Quellcode:

var
  n:integer =0 ;
  erlaubt : boolean = true;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if erlaubt then
 begin
  Inc(n);
  if n > 15 then n:=0;
 end;
end;

// pause button
procedure TForm1.Button1Click(Sender: TObject);
begin
 erlaubt := not erlaubt;
end;
// oder etwas umstendlicher....
// pause button 2
procedure TForm1.Button1Click(Sender: TObject);
begin
 if not Assigned(timer1.OnTimer) then
       Timer1.OnTimer := Timer1Timer 
       else
       Timer1.OnTimer := nil;
end;

Und dann musst du nur noch n abfragen.