Ich vermute, der Fehler ist unabhängig von dem Timer.
Nach Enable wird aber das Ereignis OnTimer nicht mehr ausgeführt - sollte ich in meiner Ereignistabelle sehen.
Zitat:
--- TimerEx1.Enabled:=True ist der letzte Eintrag
Delphi-Quellcode:
procedure THauptformular.Hauptschleife(Owner: TObject);
var zaehler: shortint;
Begin
begin
inc (Hauptschleifencounter,1);
Ereignis_notieren('HS 1. Start Hauptschleife - '+inttostr(Hauptschleifencounter));
SchleifenBar.position:=11-Hauptschleifencounter;
....
Display_aktualisieren(nil);
CounterStart(nil);
end; //if Hauptschleifencounter > 10
end;
// **** **** **** **** **** **** **** **** **** ****
procedure THauptformular.CounterStart(Owner: TObject);
Begin
Ereignis_notieren('--- TimerEx1.Enabled:=True');
TimerEx1.Enabled:=True;
end;