Timerablauffrage

[olee]

Oder:

Delphi-Quellcode:

procedure TForm1.Timer2TimerA(Sender: TObject); 
begin 
  //Iwas mit A 
//BSP:
  Caption := 'Timer2-Event-A wurde ausgelöst!':
  Timer2.OnTimer := Timer2TimerB;
  Timer2.Intervall := IchDekMirEineZahl;
  Timer2.enabled := true;
end;

procedure TForm1.Timer2TimerB(Sender: TObject); 
begin 
  //Iwas mit B
//BSP:
  Caption := 'Timer2-Event-B wurde ausgelöst!':
  Timer2.OnTimer := Timer2TimerA;
  Timer2.Intervall := IchDekMirEineZahl;
  Timer2.enabled := true;
end;


begin
  Timer2.OnTimer := Timer2TimerA;
  Timer2.Intervall := IchDekMirEineZahl;
  Timer2.enabled := true;
end;