in der Hilfe steht unter
Zum Verständnis habe ich das Beispielprogramm aus der Hilfe genommen<nTimeOut>
<nTimeOut> ist ein ganzzahliger, numerischer Wert, der ein Zeitintervall in 1/100 Sekunden angibt. Wenn sich kein Ereignis in der Warteschlange befindet, wartet die Funktion AppEvent() <nTimeOut> mal 0.01 Sekunden, bevor die Ausführung eines Programms fortgesetzt wird. Der Standardwert ist 0 und in diesem Fall wartet AppEvent() so lange, bis sich ein Ereignis in der Warteschlange befindet.
Code: Alles auswählen
#include "Appevent.ch"
PROCEDURE Main
LOCAL nEvent := 0, mp1, mp2
CLEAR
@ 0,0 SAY "Zum Abbrechen rechte Maustaste drücken"
SetMouse(.T.)
DO WHILE nEvent <> xbeM_RbDown
nEvent := AppEvent( @mp1, @mp2, , 0)
IF nEvent < xbeB_Event
? "Der Event-Code für die Taste lautet:", nEvent
? "Die Message-Parameter enthalten :", mp1, mp2
ELSE
? "Der Event-Code für die Maus lautet:", nEvent
? "Die Message-Parameter enthalten :", mp1, mp2
ENDIF
ENDDO
RETURN
Was habe ich da falsch verstanden?
mfg
Wolfgang