Einzelnen Beitrag anzeigen

HappyJoe

Registriert seit: 14. Nov 2006
37 Beiträge
 
Delphi XE2 Professional
 
#7

Re: TTimer anhalten und weiterlaufen lassen

  Alt 4. Mär 2009, 15:27
Ich weiß nicht, ob ich dich richtig verstanden habe, aber versuche es doch mal mit einer eigenen Pseudo-Nachrichtenschlange.

Nehme ein TEdit Text=''. Wenn der 1. Timer auslöst, hänge an Text die '1' an. Durch OnChange wird die eigentliche Bearbeitungroutine aufgerufen. Irgendwann löst Timer 2 aus während 1 noch nicht beendet ist, folglich ist Text ='12'. OnChange ruft die Behandlungsroutine auf, da jedoch die 1. Ziffer nicht 2 ist, passiert nichts. Irgenwann ist 1 fertig und löscht die 1. Pos von Text. OnChange ruft die Behandlungsroutine auf, diesmal ist die 1. Stelle = 2 für die 2. Behandlungsroutine. ...
  Mit Zitat antworten Zitat