Registriert seit: 14. Nov 2006
37 Beiträge
Delphi XE2 Professional
|
Re: TTimer anhalten und weiterlaufen lassen
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. ...
|