PostAppEvent() wie "schnell" hintereinander ?

[AUGE_OHR]

hi,

ich möchte eine reihe von Aktionen ausführen

Code: Alles auswählen

   PostAppEvent(xbeP_Activate,,, oCutter:PBRefresh)
   PostAppEvent(xbeP_Activate,,, oCutter:oPBF8)
   oCutter:skip(+1)
   PostAppEvent(xbeP_Activate,,, oCutter:oPBF5)
   PostAppEvent(xbeP_Activate,,, oCutter:oPBF8)

das "Dumme" daran ist das die Aktionen "Zeit" brauchen also ich ein
SLEEP() zwischen den Aktionen bräuchte ...

ich habe es mal mit einer Class Var ::working versucht

Code: Alles auswählen

   PostAppEvent(xbeP_Activate,,, oCutter:PBRefresh)
   oCutter:working := .T.
   DO WHILE oCutter:working
       SLEEP(10)
   ENDDO
   PostAppEvent(xbeP_Activate,,, oCutter:oPBF8)

aber damit kommt dann nichts mehr beim AppEvent() an (weil ich ja in
der Schleife stecke)

also wer hat den noch eine Idee ?

[AUGE_OHR]

hi,

ok es geht NICHT "procedural" ...

vielmehr muss ich meine "Reihe" in einem 3th Thread laufen lassen denn
nur dann kann ich dem 2nd Thread meine PostAppEvent() schicken den
es ja "SELF" betrifft.

Dann kann ich auch das :working des 2nd Thread im 3th Thread benutzen
um den 3th Thread so lange anzuhalten bis der 2nd Thread "fertig" ist.
... alles klar ?