FreeProfan

Français

Deaktiviert

Salut,
je suis am überlegen trop XProfan trop échanger et probiere erstmal avec qui FreeProfan un peu herum là je qui Funktionen bzgl. Firebird seulement testen voudrais cet cependant dans den Freeware Versionen pas chez sommes. qui 11.2 voulais je mir maintenant pas extra seulement pour den Test achetons, car si je trop XProfan wechsele ensuite wirds juste qui aktuelle X3 Version. là FreeProfan sur den Stand qui X3 son soll bietet es sich zum testen conforme à cela aus meiner Sicht à. ca seulement comme kleine Hintergrundinfo là ca mon erster Beitrag ici ist, maintenant trop meinem Problem:

j'ai un Hauptfenster welches sur une Button un zweites la fenêtre avec einem Text et Modifier le champ de ouvrir soll. Soweit funktioniert qui l'affaire aussi wunderbar. si qui Nutzer maintenant im zweiten la fenêtre sur X (pour schließen) klickt soll sich cela zweite la fenêtre schließen et simple zum Hauptfenster rentrer, seulement si qui Nutzer im Haupfenster nochmal sur X (pour schließen) klickt soll sich cela Programme finissons.

cela klappt maintenant aussi soweit, si je allerdings cela Modifier le champ de im 2. la fenêtre aktiviere et ensuite cela la fenêtre schließen veux muss je deux la fois sur X klicken jusqu'à cela la fenêtre sich schließt, im Normalfall devrait cela juste beim ersten klick pour aller ...

je habs la fois angehangen, eventuell avez son une Tipp pour mich.
merci !

Kompilieren Marque Séparation

Déclarer Ende%
Ende% = 0

Proc WndMain

    Déclarer hMain&,hBtn1&
    Fenêtre Style 8
    hMain&=Créer ("Window",%hWnd,"Hauptfenster",100,100,320,320)
    hBtn1&=Créer("Button",hMain&,"Klick mich feste",10,10,125,23)

    WhileNot Ende% = 1

        WaitMouse

        Si %MenuItem = -2

            Si MessageBox("Programm finissons?","Frage",36) = 6

                Ende% = 1

            EndIf

        EndIf

        Si %GetFocus = hBtn1&

            wndDlg

        EndIf

    Endwhile

ENDPROC

Proc wndDlg

    Déclarer hEdit&,hDlg&
    Fenêtre Style 8
    hDlg& = Créer("Window",hMain&,"Cooles Fenster",120,120,320,320)
    Créer("Text",hDlg&,"Textfeld",10,10,125,23)
    hEdit& = Créer("Edit",hDlg&,»,10,33,125,23)

    WhileNot %MenuItem = -2

        WaitMouse

        Si %MenuItem = -2

            DestroyWindow(hDlg&)

        EndIf

    Endwhile

ENDPROC

Si Ende% = 1

    Fin

D'autre

    WndMain

EndIf

05.02.2017 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

E.T.

So la fois sur qui Schnelle

Kompilieren Marque Séparation

Déclarer Ende%
Déclarer hMain&,hBtn1&
Ende% = 0

Proc WndMain

    Fenêtre Style 8+512
    hMain&=Créer ("Window",%hWnd,"Hauptfenster",100,100,320,320)
    hBtn1&=Créer("Button",hMain&,"Klick mich feste",10,10,125,23)

ENDPROC

Proc wndDlg

    Déclarer hEdit&,hDlg&, hDlgEnde%
    Fenêtre Style 8+512
    hDlg& = Créer("Window",hMain&,"Cooles Fenster",120,120,320,320)
    Créer("Text",hDlg&,"Textfeld",10,10,125,23)
    hEdit& = Créer("Edit",hDlg&,»,10,33,125,23)

    WhileNot hDlgEnde%

        Waitinput

        Si %Key=2

            DestroyWindow(hDlg&)
            hDlgEnde% = 1

        EndIf

    Endwhile

ENDPROC

WndMain

WhileNot Ende% = 1

    WaitInput

    Si %Key = 2

        Si MessageBox("Programm finissons?","Frage",36) = 6

            Ende% = 1

        EndIf

    ElseIf %GetFocus = hBtn1&

        wndDlg

    EndIf

Endwhile

peux malheureusement pas avec FreeProfan testen, seulement avec 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 citation

Absatzweise Citation Zeilenweise Citation

Deaktiviert

allô E.T.,
ersteinmal merci pour qui Aider. Im wesentlichen hing es wohl à WaitInput et %Key=2 pour Profis trivial mais pour une novice plan erstmal une echte Hürde si on qui Feinheiten de XProfan encore pas kennt. là je qui Solution nachvollziehen voulais hab je aussi nochmal une Version gebastelt.

Kompilieren Marque Séparation

Déclarer Ende%
Ende% = 0

Proc WndMain

    Déclarer hMain&,hBtn1&
    Fenêtre Style 8
    hMain&=Créer ("Window",%hWnd,"Hauptfenster",100,100,320,320)
    hBtn1&=Créer("Button",hMain&,"Klick mich feste",10,10,125,23)

    WhileNot Ende% = 1

        Waitinput

        Si %Key = 2

            Si MessageBox("Programm finissons?","Frage",36) = 6

                Ende% = 1

            EndIf

        EndIf

        Si %GetFocus = hBtn1&

            wndDlg

        EndIf

    Endwhile

ENDPROC

Proc wndDlg

    Déclarer hEdit&,hDlg&,inh$
    Fenêtre Style 8
    hDlg& = Créer("Window",hMain&,"Cooles Fenster",120,120,320,320)
    Créer("Text",hDlg&,"Textfeld",10,10,125,23)
    hEdit& = Créer("Edit",hDlg&,»,10,33,125,23)

    WhileNot %Key = 2

        Waitinput

        Si %Key = 2

            DestroyWindow(hDlg&)

        EndIf

    Endwhile

ENDPROC

Si Ende% = 1

    Fin

D'autre

    WndMain

EndIf

FreeProfan

05.02.2017 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

so nebenbei angemerkt:

qui tête-Programme-Boucle sollte (aussi que declare's pour Hauptfenster) pas dans einer PROC liegen (hatte es dans mon Bsp. oui aussi geändert). cela erstellen des Fensters peux sans Probleme dans einer eigenen Proc avoir lieu. là dans einer Proc decl. Variablen (comment chez dir qui Button et cela la fenêtre) eig. aussi seulement dans qui Proc gültig sommes, peux ca entier vite zum chaos mener.

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 citation

Absatzweise Citation Zeilenweise Citation

Deaktiviert

allô E.T.,
stimmt, weil bistrot deklarierte Variablen, Global ensuite pas sichtbar sommes, ab dem dritten la fenêtre serait cela trop Problemen mener. mon Beispiel hat wohl encore funktioniert weil pour sortir de qui zweiten Proc direct la première fortgesetzt wird et somit qui lokalen Deklarationen encore gültig sommes. je mach mir la fois den Knoten aus dem Gehirn et beherzige cela pour qui Zukunft

merci pour den Hinweis !

FreeProfan

07.02.2017 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

ici la fois un Beispiel, comment on es aussi faire peux.
chez mehreren Windows doit on arrêt avec GetActiveWindow()
seulement cela aktive la fenêtre erfragen.

Kompilieren Marque Séparation

Déclarer Ende%, hMain&, hDlg&, hBtn1&, hBtn2&
Ende% = 0
Fenêtre Style 8
hMain&=Créer ("Window",%hWnd,"Hauptfenster",100,100,320,320)
hBtn1&=Créer("Button",hMain&,"Klick mich feste",10,10,125,23)

WhileNot Ende%

    Waitinput

    Si %Key = 2

        Si GetActiveWindow() = hMain&

            Si MessageBox("Programm finissons?","Frage",36) = 6

                Ende% = 1

            EndIf

        EndIf

        Si GetActiveWindow() = hDlg&

            DestroyWindow(hDlg&)

        EndIf

    EndIf

    Si GetActiveWindow() = hDlg&

        Si Clicked(hBtn2&)

            DestroyWindow(hDlg&)

        EndIf

    EndIf

    Si Clicked(hBtn1&)

        wndDlg

    EndIf

Endwhile

Proc wndDlg

    Déclarer hEdit&,inh$
    Fenêtre Style 8
    hDlg& = Créer("Window",hMain&,"Cooles Fenster",120,120,320,320)
    Créer("Text",hDlg&,"Textfeld",10,10,125,23)
    hEdit& = Créer("Edit",hDlg&,»,10,33,125,23)
    hBtn2& = Créer("Button", hDlg&, "Ende", 10, 60, 60, 23)

ENDPROC

Fin

et cela Hauptfenster doit pas absolument dans 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 citation

Absatzweise Citation Zeilenweise Citation