XProfan

Julian
Schmidt

Du könntest mittels WindowFromPoint cela négoce sous qui souris ermitteln. et alle Tasteneingaben à cela la fenêtre weiterleiten.

ici un entier primitives Beispiel.

Def @GetParent(1) !"User32","GetParent"
CLS
Déclarer hhdl&
Créer("Button",%hwnd,"test",10,10,200,30)

Tandis que 1

    WaitScan
    hhdl&=HandleHover()

    Si (GetParent(hhdl&)=%hwnd) or (hhdl&=%hwnd)

        Si %ScanKey=8

            Settext hhdl&,Mid $(Gettext$(hhdl&),1,Len(Gettext$(hhdl&))-1)

        D'autre

            Settext hhdl&,Gettext$(hhdl&)+Inkey$()

        EndIf

    Endif

Endwhile

Proc HandleHover

    Déclarer mpos#
    Faible mpos#,8
    Externe("user32","GetCursorPos",mpos#)
    Var hdl&=Externe("User32","WindowFromPoint",long(mpos#,0),long(mpos#,4))
    Dispose mpos#
    Retour hdl&

ENDPROC

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Julian
Schmidt

Hab la fois deinen Voir le texte source angeschaut.

Mir ist aufgefallen cela du dans qui Procedur "accessrights" 45 durchnummerierte Variablen pour deine Rechterverwaltung verwendest. Leichter wäre ici qui Verwendung eines Arrays.

declare right%[]'Deklaration
Claire right%[]'sur 0 mettons

whileloop 0,44

    cas droite$=Str$(&loop+1) :  right%[&loop]=1'si droite vorhanden; ensuite juste 1

Endwhile

'Abfrage des Rechtes ensuite per

Si right%[NummerRecht%-1]

Endif

holmol93

Heyhoo

à cause de deiner ersten Antwort:
je muss mir den Voir le texte source la fois oui c'est ca anschauen, im Moment verstehe je là seulement gare hihi

mon Programmierkenntnisse sommes doch encore droite beschränkt, avant allem si es um systemnahe Funktionen allez...

Muss mich la fois par cela Befehlsregister fouiller, quoi chacun Anweisung en oui c'est ca bewirkt

trop qui Rechtezuteilung:

Hehe, là avons wirs wieder ;) je wusste jusqu'à plan pas einmal, quoi Arrays sommes, c'est pourquoi hab je mir so plus geholfen, comme mir autrefois dans den Sinn gekommen ist

mais je weiss, dass quelques Funktionen encore pas justement sinnvoll, geschweige car performant mise en œuvre sommes... jusqu'à dahin wird encore einiges l'eau sur den Rhein aller ;)

Im Moment voudrais je d'abord einmal den Mehrfensterbetrieb dans den Griff bekommen... car sans ist qui ganze Software très mühsam trop bedienen^^
(avec cela on dans qui Auftragsübersicht également une Vue d'ensemble sur alle Artikel einblenden peux, sans alle la fenêtre d'abord trop schliessen, habe je mir jusqu'à maintenant avec einem Hotkey beholfen (F1) , qui une kleinen Dialogue avec les allen Artikeln einblendet)

Greetz,

Danny

XProfan X2

Julian
Schmidt

Vieleicht peux du la fois un minimalistisches Beispiel posten.quoi aufzeigt comment dein Fensterbetrieb justement aussieht. et anschließend décrire comment du dir den Mehrfensterbetrieb vorstellst.

je crois ici aucun Lust une Tausendzeilen-Code durchzusuchen.

et mir ist aussi encore pas bien sûr quoi du eig veux.

holmol93

Ah alors:

je beziehe mich dabei toujours sur unser Access basierendes Datenbanksystem im magasin.
je peux so viele Formulare offen avons, comment je veux, sobald comment je de einem ins autre la fenêtre wechsle, peux je Eingaben faire.

chez mir ists oui maintenant grade so:
tu veux une Auftrag chercher. alors gehtst du zB dans qui Kundendaten, wählst là une Kunden aus. qui Kundendetails ouvrir sich. de là klickst du sur une Auftrag. qui Auftrag ouvrez sich.
maintenant avons wir 3 la fenêtre offen. je peux cependant, sans d'abord alle "übergeordneten" dans qui Reihenfolge trop schliessen, pas simple so quelque chose dans qui Kundenübersicht faire. Klicken allez déjà, cependant reagiert rien, solang comment cela Auftragsfenster aktiv ist.

j'ai là déjà rumprobiert avec den verschiedenen Fensterstilen, là je gemeint habe, es liegt am Dialogfensterstil.
mais si cela so wäre, pourrait je oui im %HWND quand même Eingaben vornehmen, quoi cependant aussi pas possible ist

Gruess,
Danny

XProfan X2

Julian
Schmidt

je vais en aus cela du pour chaque la fenêtre une Boucle la hâte, dans qui du qui pour cela la fenêtre wichtigen Bedingungen abgefragst.
Sobald cela la fenêtre geschlossen wird, wird qui Abbruchbedingung aktiv et cela Programme springt dans qui untergeordnete Boucle des untergeordenten la fenêtre.
Anschließend volonté également seulement qui pour cet la fenêtre wichtige Bedingungen abgefragt.

avec cela du aussi alle Bedingugen aller la fenêtre gleichzeitig abfragen peux, doit alle Bedingungen naturellement aussi dans einer Boucle liegen. Allternativ verschiebst du alle Bedingungen dans un Funktion et appelles vous dans chacun individuel Boucle sur.

cela Erste wäre avec Bezug sur sauberen Code qui bessere Solution.

Thomas
Freier

Im Prinzip peux il oui x-beliebige la fenêtre sur 28.14 - Multiprozessing avec XProfan ouvrir , Travailler, à gauche liegen laisser et schließen.
chez den DBFs devrait cet ensuite vorsichtshalber toujours seulement zum Datenlesen et -Sauver sur @db("Open", #N,S) aktiv son. suis Je ne sûrement, si es beim Multiprozessing sonst trop Problemen venez, si de deux Prozessen puis zurückgegriffen wird.

Gruß Thomas
Windows XP SP2, XProfan X2

H.Brill

Peut-être aussi un TabControl quoi pour toi ?
là peux on cela doch joli schalten. et on braucht
seulement une einzige Ereignis-Boucle. il faut seulement aufpassen,
quel Button/Contrôle dans welches la fenêtre est.
Hab ici la fois quoi vorbereitet. s'il te plaît korrigiert mich, si
quoi faux son sollte :

Déclarer Dlg1&, Dlg2&, Dlg3&, tabctrl&, Reiter&
Déclarer edit1&, edit2&, edit3&, edit4&, edit5&, btn1&, btn2&, btn3&, lb&
Titre de la fenêtre "Mein Fenster"
Fenêtre 800, 600
tabctrl& = Créer("TabCtrl", %HWnd, "Kunden", 5, 10, 730, 550)
' Reiter anlegen
@InsertTab(tabctrl&, 3, "Artikel")
@InsertTab(tabctrl&, 2, "Rechnungen")
Fenêtre Style 1024
' 1. Dialog
Dlg1&  = @Créer("Window",tabctrl&,"Kunden Verwaltung",10, 60, 700, 480)
edit1& = @Créer("Edit",    Dlg1&, », 10, 10, 120, 25)
edit2& = @Créer("Edit",    Dlg1&, », 10, 40, 120, 25)
btn1&  = @Créer("Button",  Dlg1&, "Kopiere", 10, 80, 60, 25)
lb&    = @Créer(ListBox, Dlg1& , 1, 10, 120, 120, 180)
AddStrings(lb&, "Maier")
AddStrings(lb&, "Müller")
AddStrings(lb&, "Schmitt")
' 2. Dialog
Dlg2&  = @Créer("Window",tabctrl&,"Artikel Verwaltung",10, 60, 700, 480)
btn2&  = @Créer("Button", Dlg2&, "Test2", 10, 10, 60, 25)
edit3& = @Créer("Edit",   Dlg2&, », 10, 50, 120, 25)
edit4& = @Créer("Edit",   Dlg2&, », 10, 80, 120, 25)
' 3. Dialog
Dlg3&  = @Créer("Window", tabctrl&, "Rechnungs Erstellung", 10, 60, 700, 480)
edit5& = @Créer("Edit", Dlg3&, », 10, 10, 240, 25)
btn3&  = @Créer("Button", Dlg3&, "Test 3", 10, 50, 80, 25)
ShowWindow(Dlg2&, 0)
ShowWindow(Dlg3&, 0)
SetWindowPos Dlg1& = %WinLeft + 20, %WinTop + 100; 0

Tandis que 1

    WaitInput
    Reiter& = @GetActiveTab(tabctrl&)

    Si @TabChanged(tabctrl&)

        'Reiter& = @GetActiveTab(tabctrl&)

        Select Reiter&

            CaseOf 0

            ShowWindow(Dlg1&, 1)
            ShowWindow(Dlg2&, 0)
            ShowWindow(Dlg3&, 0)
            SetWindowPos Dlg1& = %WinLeft + 20, %WinTop + 100; 0

            CaseOf 1

            ShowWindow(Dlg2&, 1)
            ShowWindow(Dlg1&, 0)
            ShowWindow(Dlg3&, 0)
            SetWindowPos Dlg2& = %WinLeft + 20, %WinTop + 100; 0

            CaseOf 2

            ShowWindow(Dlg3&, 1)
            ShowWindow(Dlg1&, 0)
            ShowWindow(Dlg2&, 0)
            SetWindowPos Dlg3& = %WinLeft + 20, %WinTop + 100; 0

        EndSelect

    EndIf

    Cas %Key = 2 : Pause

    Si @Clicked(btn1&)

        'MessageBox("Button dans Kunden Verwaltung geklickt !", "Info", 0)
        SetText edit5&, GetString$(lb&, GetCurSel(lb&))

    ElseIf @Clicked(btn2&)

        MessageBox("Button dans Artikel Verwaltung geklickt !", "Info", 0)

    ElseIf @Clicked(btn3&)

        MessageBox("Button dans Rechnungs Erstellung geklickt !", "Info", 0)

    EndIf

Endwhile

Fin

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.

29.07.2013 ▲

Julian
Schmidt

Es pouvoir oui im Prinzip absolute keinen Unterschied si qui Controls sur une TabControl ou bien une la fenêtre liegen.
cela Wichtige ist, cela alle Bedingungen dans einer Boucle liegen. ou bien per Muliprozessing gleichzeitig abgefragt volonté peut.

je denke de Handling her wären ChildWindows encore cela einfachste. peux du dir oui la fois anschauen.

29.07.2013 ▲

Thomas
Freier

peut-être trifft cet Beispiel cela Gesuchte.