Thema: Delphi Timer stoppen

Einzelnen Beitrag anzeigen

DelphiManiac

Registriert seit: 5. Dez 2005
742 Beiträge
 
#9

Re: Timer stoppen

  Alt 22. Feb 2008, 15:43
@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;
  Mit Zitat antworten Zitat