frage zu TTimer

[ichbins]

Der Timer kann nur ausgeführt werden, während keine Funktion läuft. Du machst es so:

Delphi-Quellcode:

beep;
timer aktivieren;
beep;
timer aktivieren; (sinnlos, da bereits aktiviert)

du musst deine Funktion beenden und kannst dann den Timer öffnen. Verwende dann eine globale Zählervariable:

Delphi-Quellcode:

var
  zaehler:integer=0;



procedure tform1.timerprozedur (Doppelklick auf Timer);
begin
  zaehler:=zaehler+1;
  case zaehler of 
    1: TON1 ABSPIELEN;
    2: TON2 ABSPIELEN;
  end else
  begin
    zaehler:=0;
    timer1.enabled:=false;
  end;
end;

//so aktivieren:
procedure aktivieretimer;
begin
  timer1.enabled:=true;
  timer1timer(self);
end;