XProfan

English

here The Solution - guaranteeing: [...]

Perhaps have You somewhere getText$ forget and vergleichst with the lever instead of the Text - or Ähnliches...

05/16/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Yes, Upload is often helpful!

your function Menu becomes called or not?

You destroy too whom dialog and setting _ende% not 1, means becomes your Loop to that Error if function Menu zurückkehrt.

I fürchte you should still one Minimalbeispiel create - and not a Codeauszug!

let the [...]

here once correctly. - so of supra left down right, I faith then can itself your trouble in breeze dissolve.

05/16/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

solely your Programmstruktur stood you here in the ways:
Compile Mark Separation

declare fenster%
declare hFont&
declare _ende%
declare _dlg%
declare ername%
declare erpass%
declare weiter%
declare end%
declare name$
declare pass$
name$ = Ferenc
pass$ = test

Proc passwort

    hFont& = create(Font, ARIAL,14,0,0,0,0)
    setdialogfont hFont&
    _dlg% = create(dialog, %hWnd, Anmeldung, 532, 394, 209, 97 + %cyCaption)
    create(text, _dlg%, Name:, 16, 8, 72, 16)
    create(text, _dlg%, Passwort:, 104, 8, 72, 16)
    ername% = create(edit, _dlg%, , 16, 24, 72, 16)
    erpass% = create(edit, _dlg%, , 104, 24, 72, 16)
    weiter% = create(button, _dlg%, Weiter, 16, 48, 72, 24)
    end% = create(button, _dlg%, Ende, 104, 48, 72, 24)
    _ende% = 0
    declare korrektesPasswort%
    korrektesPasswort%=0

    whilenot _ende%

        waitinput

        if (%key = 2)

            End

        elseif clicked(weiter%)

            If (GetText$(ername%) = name$) And (GetText$(erpass%) = pass$)

                korrektesPasswort%=1
                break

            Else

                messageBox(Falscheingabe.,,0)

            Endif

        ElseIf clicked(end%)

            break

        EndIf

    EndWhile

    destroywindow(_dlg%)
    setdialogfont 0
    deleteobject hfont&
    return korrektesPasswort%

EndProc

casenot Passwort() : end
Window 980,500-300,250
PopUp aaa
Appendmenu 201,aaa
Appendmenu 202,aaa
PopUp aaa
...

while 1

    waitInput

    If @MenuItem(201)

        end

    Elseif MenuItem(202)

        ...

    EndIF

end