XProfan

Deutsch

ByteAttack

Hat jemand vieleicht ne Idee wie ich die %Umessage wieder zurücksetzen kann?

Möchte einfach beim klicken auf die Schließen-Schaltfläche abfragen, ob das Programm wirklich geschlossen werden soll. Wenn nicht muss ich die %Umessage ja irgendwie wieder zurücksetzen.

Einfaches Beispiel:
Kompilieren Markieren Separieren

Declare exit%
USERMESSAGES 16
Window 0,0-640,480

Proc Ende

    Declare mb%
    mb%=MessageBox("Wollen Sie das Program wirklich beenden?","Beenden",292)

    if mb%=6

        exit%=1
        Return 0

    endif

    Und hier sollte ich es irgendwie zurücksetzenm können ???

EndProc

WhileNot exit%

    sleep 1
    WindowTitle Str$(%Umessage)
    Case %Umessage=16:Ende

Wend

USERMESSAGES 0

Website: [...]

Facebook: [...]

04.05.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Hallo Marc...

Ich habe erst einmal diesen Vorschlag:
Kompilieren Markieren Separieren

Declare exit%
USERMESSAGES 16,$0044  $0044=WM_COMMNOTIFY = obsolete in Win32
Window 0,0-640,480

Proc Ende

    Declare mb%
    mb%=MessageBox("Wollen Sie das Program wirklich beenden?","Beenden",292)

    if mb%=6

        exit%=1
        Return 0

    endif

    Und hier sollte ich es irgendwie zurücksetzenm können ???
    @Sendmessage(%HWND,$0044,0,0) Usermessage dürfte jetzt $0044 sein

EndProc

WhileNot exit%

    sleep 1
    WindowTitle Str$(%Umessage)
    Case %Umessage=16:Ende

Wend

USERMESSAGES 0