Timer stoppen

[DelphiManiac]

@SirThornberry:

Ja stimmt, genau das könnte der Fall sein...
aber bei deinem Quelltext, könnte es doch jetzt passieren, dass ich den Timer disable, und er noch die Prozedur abarbeitet, und dann sich selbst wieder aktiviert, oder?!

Zitat:

Daher lieber so:

Zitat:

Delphi-Quellcode:

 procedure TMainGUI.tmrAblaufTimer(Sender: TObject); 
begin 
  TTimer(Sender).Enabled = False; 
  MeinGeraet.HoleDies; 
  Application.ProcessMessages;  // angenommen mein Obj ist schon freigegeben (dann knallts) 
  MeinGeraet.HoleJenes; 
  Application.ProcessMessages; 
  MeinGeraet.HoleDas; 
  TTimer(Sender).Enabled = True; 
end;