FreeProfan

Español

Deaktiviert

¡Hola,
Yo bin al überlegen a XProfan a wechseln y probiere primero con el FreeProfan una wenig herum como Yo el Características bzgl. Firebird sólo testen möchte esta sin embargo en el Freeware Versionen no en son. El 11.2 Yo quería me ahora no extra sólo para el Test kaufen, porque si yo a XProfan wechsele entonces Será mejor que te va igual el aktuelle X3 Versión. Como FreeProfan en el Stand el X3 ser se bietet lo para testen dementsprechend de meiner Sicht a. Dies sólo como kleine Hintergrundinfo como dies mein erster Contribución hier es, ahora a mi Problema:

Yo habe una Ventana principal welches encima una Button una zweites Ventana con un Texto y Editar campo abierto se. Soweit funktioniert el Sache auch wunderbar. Wenn el Nutzer ahora en el zweiten Ventana en X (para schließen) klickt se se el zweite Ventana schließen y simplemente para Ventana principal zurückkehren, sólo si la Nutzer en el Haupfenster otra vez en X (para schließen) klickt se se el Programa final.

Das klappt ahora soweit, si yo allerdings el Editar campo en el 2. Ventana aktiviere y luego el Ventana schließen voluntad muss Yo zwei veces en X clic a el Ventana se schließt, en el Normalfall debería el igual beim ersten klick a ir ...

Yo habs veces angehangen, eventuell habt ihr una Tipp para mich.
Gracias !

Kompilieren Marca Separación

Declarar Ende%
Ende% = 0

Proc WndMain

    Declarar hMain&,hBtn1&
    Ventana de Estilo 8
    hMain&=Crear ("Window",%hWnd,"Hauptfenster",100,100,320,320)
    hBtn1&=Crear("Button",hMain&,"Klick mich feste",10,10,125,23)

    Sinestar encargado Ende% = 1

        WaitMouse

        If %MenuItem = -2

            If MessageBox("Programm final?","Frage",36) = 6

                Ende% = 1

            EndIf

        EndIf

        If %GetFocus = hBtn1&

            wndDlg

        EndIf

    EndWhile

ENDPROC

Proc wndDlg

    Declarar hEdit&,hDlg&
    Ventana de Estilo 8
    hDlg& = Crear("Window",hMain&,"Cooles Fenster",120,120,320,320)
    Crear("Text",hDlg&,"Textfeld",10,10,125,23)
    hEdit& = Crear("Edit",hDlg&,"",10,33,125,23)

    Sinestar encargado %MenuItem = -2

        WaitMouse

        If %MenuItem = -2

            DestroyWindow(hDlg&)

        EndIf

    EndWhile

ENDPROC

If Ende% = 1

    End

Más

    WndMain

EndIf

05.02.2017 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

E.T.

So veces en el Schnelle

Kompilieren Marca Separación

Declarar Ende%
Declarar hMain&,hBtn1&
Ende% = 0

Proc WndMain

    Ventana de Estilo 8+512
    hMain&=Crear ("Window",%hWnd,"Hauptfenster",100,100,320,320)
    hBtn1&=Crear("Button",hMain&,"Klick mich feste",10,10,125,23)

ENDPROC

Proc wndDlg

    Declarar hEdit&,hDlg&, hDlgEnde%
    Ventana de Estilo 8+512
    hDlg& = Crear("Window",hMain&,"Cooles Fenster",120,120,320,320)
    Crear("Text",hDlg&,"Textfeld",10,10,125,23)
    hEdit& = Crear("Edit",hDlg&,"",10,33,125,23)

    Sinestar encargado hDlgEnde%

        Waitinput

        If %Key=2

            DestroyWindow(hDlg&)
            hDlgEnde% = 1

        EndIf

    EndWhile

ENDPROC

WndMain

Sinestar encargado Ende% = 1

    WaitInput

    If %Key = 2

        If MessageBox("Programm final?","Frage",36) = 6

            Ende% = 1

        EndIf

    ElseIf %GetFocus = hBtn1&

        wndDlg

    EndIf

EndWhile

Kann por desgracia, no con FreeProfan testen, sólo X3

XProfan X3
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

05.02.2017 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Deaktiviert

¡Hola E.T.,
ersteinmal Gracias para el Ayuda. Im wesentlichen hing lo wohl a WaitInput y %Key=2 para Profis trivial aber para una Neuling eben primero una echte Hürde si uno el Feinheiten de XProfan todavía no sabe. Desde que el Solución nachvollziehen quería tener Yo auch otra vez una Versión gebastelt.

Kompilieren Marca Separación

Declarar Ende%
Ende% = 0

Proc WndMain

    Declarar hMain&,hBtn1&
    Ventana de Estilo 8
    hMain&=Crear ("Window",%hWnd,"Hauptfenster",100,100,320,320)
    hBtn1&=Crear("Button",hMain&,"Klick mich feste",10,10,125,23)

    Sinestar encargado Ende% = 1

        Waitinput

        If %Key = 2

            If MessageBox("Programm final?","Frage",36) = 6

                Ende% = 1

            EndIf

        EndIf

        If %GetFocus = hBtn1&

            wndDlg

        EndIf

    EndWhile

ENDPROC

Proc wndDlg

    Declarar hEdit&,hDlg&,inh$
    Ventana de Estilo 8
    hDlg& = Crear("Window",hMain&,"Cooles Fenster",120,120,320,320)
    Crear("Text",hDlg&,"Textfeld",10,10,125,23)
    hEdit& = Crear("Edit",hDlg&,"",10,33,125,23)

    Sinestar encargado %Key = 2

        Waitinput

        If %Key = 2

            DestroyWindow(hDlg&)

        EndIf

    EndWhile

ENDPROC

If Ende% = 1

    End

Más

    WndMain

EndIf

FreeProfan

05.02.2017 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

así nebenbei angemerkt:

El Haupt-Programa-Bucle debería (ebenso como declare's fürs Ventana principal) no en uno PROC mentira (hatte lo en mi Bsp. en efecto geändert). Das redactar la ventana kann sin Problemas en uno eigenen Proc tener lugar. Como en uno Proc decl. Variables (como en dir el Button y el Ventana) eig. auch sólo en el Proc gültig son, kann dies bastante rápidamente para Chaos führen.

XProfan X3
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

07.02.2017 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Deaktiviert

¡Hola E.T.,
stimmt, porque lokal deklarierte Variables, Global entonces no sichtbar son, de el dritten Ventana sería el a Problemen führen. Mein Ejemplo ha wohl todavía funktioniert porque después de verlassen el zweiten Proc direkt el erste fortgesetzt se y somit el lokalen Deklarationen todavía gültig son. Yo mach me de tiempo el Knoten de el Gehirn y beherzige el para el Zukunft

Gracias para el Referencia !

FreeProfan

07.02.2017 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Hier veces una Ejemplo, cómo lo auch hacer kann.
En más Fenstern muß uno sólo con GetActiveWindow()
sólo el aktive Ventana erfragen.

Kompilieren Marca Separación

Declarar Ende%, hMain&, hDlg&, hBtn1&, hBtn2&
Ende% = 0
Ventana de Estilo 8
hMain&=Crear ("Window",%hWnd,"Hauptfenster",100,100,320,320)
hBtn1&=Crear("Button",hMain&,"Klick mich feste",10,10,125,23)

Sinestar encargado Ende%

    Waitinput

    If %Key = 2

        If GetActiveWindow() = hMain&

            If MessageBox("Programm final?","Frage",36) = 6

                Ende% = 1

            EndIf

        EndIf

        If GetActiveWindow() = hDlg&

            DestroyWindow(hDlg&)

        EndIf

    EndIf

    If GetActiveWindow() = hDlg&

        If Clicked(hBtn2&)

            DestroyWindow(hDlg&)

        EndIf

    EndIf

    If Clicked(hBtn1&)

        wndDlg

    EndIf

EndWhile

Proc wndDlg

    Declarar hEdit&,inh$
    Ventana de Estilo 8
    hDlg& = Crear("Window",hMain&,"Cooles Fenster",120,120,320,320)
    Crear("Text",hDlg&,"Textfeld",10,10,125,23)
    hEdit& = Crear("Edit",hDlg&,"",10,33,125,23)
    hBtn2& = Crear("Button", hDlg&, "Ende", 10, 60, 60, 23)

ENDPROC

End

Und la ventana principal muß no necesariamente en un Proc.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

12.02.2017 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita