XProfan

Español

Jörg
Sellmeyer

Nach mi verständnis müßte %umessage después de el Auslesen zurückgesetzt voluntad, así lo sinnvoll genutzt voluntad kann.
Zumindest en %umessage = 16 es el pero no el Fall. Selbst una löschen el Message con Mensajes del usuario -16 bringt nichts, porque %umessage weiterhin valor 16 behält.

Kompilieren Marca Separación

Mensajes del usuario 16
Cls

Mientras que 1

    WaitInput
    Imprimir %umessage
    Case %mousepressed = 2:End
    Mensajes del usuario -16
    SetTimer 1
    WaitInput
    KillTimer
    Imprimir %umessage,"Hier müßte doch spätestens 0 auftauchen"
    Mensajes del usuario 16

Wend

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

Jörg
Sellmeyer

Tja, cómo hierdran sieht, funktioniert auch el no

Kompilieren Marca Separación

Ventana de Estilo 2 + 8 + 16 + 32 + 512
Mensajes del usuario 16,$0044
Cls

Mientras que 1

    WaitInput
    Imprimir %umessage
    Case %mousepressed = 2:End
    Case %umessage = 16:SendMessage(%hwnd,$0044,0,0)
    imprimir %umessage
    Case %umessage = 16:Romper

Wend

waitinput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Editar: Nach algo rumprobieren Yo ahora edoch una solución gefunden (de el Yo eigentlich pensamiento, Yo hätte ellos vorher ya getestet).

Yo möchte soetwas hacer - quasi el Schließen-Cruz como Stop-Button "misbrauchen". Meiner Meinung después de debería el posible ser:

Kompilieren Marca Separación

Ventana de Estilo 2 + 8 + 16 + 32 + 512
Mensajes del usuario 16,$0044
Cls
neu################

Proc KillUMEssage

    SetTimer 1
    WaitInput
    KillTimer
    SendMessage(%hwnd,$0044,0,0)

ENDPROC

######################

Proc Test

    WhileLoop 10000

        Localizar 1,1
        Imprimir "Test " + Str$(&Loop)

        If %umessage = 16

            SendMessage(%hwnd,$0044,0,0)
            Romper

        EndIf

    Wend

ENDPROC

Mientras que 1

    WaitInput
    Imprimir %umessage,%key
    Case %mousepressed = 2:End

    If %umessage = 16

        neu############
        KillUMEssage
        ###############
        Romper

    ElseIf ScanKey(65) Taste a

        Test

    EndIf

Wend

 $B "Ende?"

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Irgendwo Tuve schonmal

Kompilieren Marca Separación

setTimer 10

mientras que uMessage { waitInput }

killTimer

Nuevo - aber como fehlt imho todavía algo, bin grad sin Computer en el Yo testen podría...

19.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Sí - había Yo auch ya así probiert (s.o.). Erst el Tip de Dieter hats gebracht.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

19.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

El Systemvariable %UMessage se en el Tat no beim Auslesen en 0 zurückgesetzt, pero beim Eintritt en el WaitInput.

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

19.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Aber entonces müßte en el ersten Ejemplo doch %umessage otra vez 0 ser, como sí todavía una WaitInput en el Bucle es. Con el Mensajes del usuario -16 puede ser auch rauslassen, lo bewirkt nämlich nix.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

19.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

pero beim Eintritt en el WaitInput

Yo glaube el es no Fall, Yo glaube una uMessage se sólo überschrieben si una neue eintrifft. (Kann lo hier ldr. no testen, mi aber mich así deswegen ya herumgeprügelt haben tener.)

19.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Sach Yo sí!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

19.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Juhu XProfan se siempre mejor - o. después de cada gefundenen "Fehler" auch el Programas stabiler.

19.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

DeHarrow

¡Hola!

Wärme veces kurz esta Hilo en. En %UMessage debería doch el Zurücksetzen después de el WaitInput gefixt
worden ser (seit 11.2 glaube Yo)? Posesiones Problemas en folgendem Ejemplo:
Kompilieren Marca Separación

 $P+
SET("ERRORLEVEL",0)
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.6.6
DATUM  26.05.2010    um  14:21 Uhr
VERWENDETE PROFANVERSION IST 11.2a-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS Unbekannt
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
 $I C:XPROFAN11LIBPROFALT.INC
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DECLARE ENDE%
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW 22,20-640,500
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
SETFOCUS(%HWND)REPAINT
UserMessages $24  WM_GETMINMAXINFO
WaitInput
Test:

If %UMessage = 36

    Print %UMessage

EndIf

UserMessages 0
Sleep 500
Print %UMessage
Goto s=s3>"Test"

Lo se después de Bewegen la ventana siempre sólo el Message 36 adecuado y no zurückgesetzt,
wobei lo con el damaligen Workaround klappt (anstatt UserMessage 0):
Kompilieren Marca Separación

setTimer 33

mientras que %uMessage

    waitInput
    caso %wmtimer:romper

wend

killtimer

Mache Yo qué falso oder hay como todavía Schwierigkeiten?

Saludo Jürgen
(X-Profano 11.2a bajo Windows 7)

Angefangen hat alles mit Profan 5.0 ...noch auf Diskette

27.05.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Probiere veces si después de gesandter UserMessage %uMessage se zurücksetzt also esta Bucle verlassen se:
Kompilieren Marca Separación

proc rmUMsgs

    while %uMessage

        waitInput 1

    wend

en

/a>

Das Sleep oben en Deinem Code bewirkt imho no qué Usted erwartest - Usted stellst el hilo sólo tot en lugar de ihm Tiempo a geben - así gesehen "kontraproduktiv" adecuado.

27.05.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

DeHarrow

Sí, el Valor es ahora 0. Sombrero me Kopfzerbrechen bereitet, porque Yo ya wer weiß Gott qué ausprobiert hatte, y en Suchfunktion sólo spät fündig wurde. Thx

Angefangen hat alles mit Profan 5.0 ...noch auf Diskette

27.05.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

◄