XProfan

Deutsch

Jörg
Sellmeyer

Nach meinem verständnis müßte %umessage nach dem Auslesen zurückgesetzt werden, damit es sinnvoll genutzt werden kann.
Zumindest bei %umessage = 16 ist das aber nicht der Fall. Selbst ein löschen der Message mit UserMessages -16 bringt nichts, weil %umessage weiterhin den Wert 16 behält.

Kompilieren Markieren Separieren

UserMessages 16
Cls

While 1

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

Wend

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

18.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

Das war schon immer so und ist ein Manko der Usermessages, aber es gibt eine Möglichkeit sie zurück zusetzen.

Usermessages 16,5,$0044

und nach der Abfrage das folgende Message senden, ist eine obsolete Windowsmessage

Sendmessage(%Hwnd,$0044,0,0)

Bei 16 ist es aber ja nicht so schlimm, aber bei 5, das Fenster hört nicht mehr auf zu flackern, deshalb die Message senden und es ist weg.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

18.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Danke, das hilft erstmal weiter.

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

18.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Tja, wie man hierdran sieht, funktioniert auch das nicht

Kompilieren Markieren Separieren

WindowStyle 2 + 8 + 16 + 32 + 512
UserMessages 16,$0044
Cls

While 1

    WaitInput
    Print %umessage
    Case %mousepressed = 2:End
    Case %umessage = 16:SendMessage(%hwnd,$0044,0,0)
    print %umessage
    Case %umessage = 16:Break

Wend

waitinput

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

18.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Edit: Nach etwas rumprobieren habe ich jetzt edoch eine Lösung gefunden (von der ich eigentlich dachte, ich hätte sie vorher schon getestet).

Ich möchte soetwas machen - quasi das Schließen-Kreuz als Stop-Button "misbrauchen". Meiner Meinung nach sollte das möglich sein:

Kompilieren Markieren Separieren

WindowStyle 2 + 8 + 16 + 32 + 512
UserMessages 16,$0044
Cls
neu################

Proc KillUMEssage

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

EndProc

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

Proc Test

    WhileLoop 10000

        Locate 1,1
        Print "Test " + Str$(&Loop)

        If %umessage = 16

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

        EndIf

    Wend

EndProc

While 1

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

    If %umessage = 16

        neu############
        KillUMEssage
        ###############
        Break

    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 zitieren Zeilenweise zitieren

Irgendwo hatte ich schonmal

Kompilieren Markieren Separieren

setTimer 10

while uMessage { waitInput }

killTimer

gepostet - aber da fehlt imho noch etwas, bin grad ohne Computer auf dem ich testen könnte...

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Ja - das hatte ich auch schon so probiert (s.o.). Erst der Tip von Dieter hats gebracht.

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

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Die Systemvariable %UMessage wird in der Tat nicht beim Auslesen auf 0 zurückgesetzt, sondern beim Eintritt ins WaitInput.

Gruß
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 zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Aber dann müßte im ersten Beispiel doch %umessage wieder 0 sein, da ja noch ein WaitInput in der Schleife ist. Das mit UserMessages -16 kann man auch rauslassen, es bewirkt nämlich nix.

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

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

sondern beim Eintritt ins WaitInput

Ich glaube das ist nicht der Fall, ich glaube eine uMessage wird nur überschrieben wenn eine neue eintrifft. (Kann es hier ldr. nicht testen, meine aber mich damit deswegen schon herumgeprügelt haben zu müssen.)

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Sach ich ja!

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

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Juhu XProfan wird immer besser - bzw. nach jedem gefundenen "Fehler" auch die Programme stabiler.