XProfan

Julian
Schmidt

Usted könntest mittels WindowFromPoint el Handel bajo ratón ermitteln. Und todos Tasteneingaben a el Ventana weiterleiten.

Hier una bastante primitives Ejemplo.

Def @GetParent(1) !"User32","GetParent"
CLS
Declarar hhdl&
Crear("Button",%hwnd,"test",10,10,200,30)

Mientras que 1

    WaitScan
    hhdl&=HandleHover()

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

        If %ScanKey=8

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

        Más

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

        EndIf

    Endif

EndWhile

Proc HandleHover

    Declarar mpos#
    Dim mpos#,8
    Externo("user32","GetCursorPos",mpos#)
    Var hdl&=Externo("USER32","WindowFromPoint",long(mpos#,0),long(mpos#,4))
    Disponer mpos#
    Volver hdl&

ENDPROC

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

Julian
Schmidt

Hab veces deinen Ver código fuente angeschaut.

Mir es aufgefallen el du en el Procedur "accessrights" 45 durchnummerierte Variables para deine Rechterverwaltung verwendest. Leichter wäre hier el Verwendung uno Arrays.

declarar right%[]'Deklaration
Claro right%[]'en 0 conjunto

whileloop 0,44

    caso bastante$=Str$(&bucle+1) :  right%[&bucle]=1'Wenn Recht vorhanden; entonces igual 1

Endwhile

'Abfrage des Rechtes entonces por

If right%[NummerRecht%-1]

Endif

holmol93

Heyhoo

Wegen deiner ersten Antwort:
Yo muss me el Ver código fuente veces genau anschauen, en el Moment verstehe Yo como sólo Bahnhof hihi

Mi Programmierkenntnisse son todavía bastante beschränkt, antes allem si en systemnahe Características va...

Muss mich veces por el Befehlsregister durchwühlen, qué jede Anweisung su genau bewirkt

Zu el Rechtezuteilung:

Hehe, como haben wirs otra vez ;) Yo wusste a eben no una vez, qué Arrays son, deshalb tener Yo así más geholfen, como me damals en el Sinn gekommen es

Aber Sé que, dass algunos Características todavía no gerade sinnvoll, geschweige porque performant umgesetzt son... Bis dahin se todavía einiges Wasser encima el Rhein ir ;)

Im Moment möchte Yo zuerst una vez el Mehrfensterbetrieb en el Griff bekommen... porque sin Es el todo Software muy mühsam a bedienen^^
(Damit uno en el Auftragsübersicht ebenfalls una Información general encima todos Artikel einblenden kann, sin todos Ventana zuerst a schliessen, Yo me a ahora con un Hotkey beholfen (F1) , el una pequeña Diálogo con los allen Artikeln einblendet)

Greetz,

Danny

XProfan X2

Julian
Schmidt

Vieleicht kannst du veces una minimalistisches Ejemplo puesto.Was aufzeigt como dein Fensterbetrieb gerade aussieht. Und anschließend beschreiben como du dir el Mehrfensterbetrieb vorstellst.

Yo glaube hier keiner Lust una Tausendzeilen-Code durchzusuchen.

Und me es auch todavía no klar qué du eig willst.

holmol93

Ah also:

Yo beziehe mich esta siempre en unser Access basierendes Datenbanksystem en el Geschäft.
Puedo así viele Formulare offen haben, Yo voluntad, sobald Yo de una en el otro Ventana wechsle, kann Yo Eingaben hacer.

En me ists sí ahora grade así:
Usted willst una Auftrag suchen. Also gehtst du zB en el Kundendaten, wählst como una Kunden de. El Kundendetails abierto se. Von como klickst du en una Auftrag. Der Auftrag öffnet se.
Jetzt haben wir 3 Ventana offen. Puedo sin embargo, sin zuerst todos "übergeordneten" en el Reihenfolge a schliessen, no simplemente así algo en el Kundenübersicht hacer. Klicken va ya, sin embargo reagiert nichts, solang como el Auftragsfenster aktiv es.

Yo habe como ya rumprobiert con el verschiedenen Fensterstilen, como Yo gemeint habe, lo liegt al Dialogfensterstil.
Aber si el así wäre, podría Yo sí en el %HWND trotzdem Eingaben vornehmen, qué sin embargo auch no posible es

Gruess,
Danny

XProfan X2

Julian
Schmidt

Yo gehe su de el du para cada Ventana una Bucle hast, en el du el para el Ventana wichtigen Bedingungen abgefragst.
Sobald el Ventana geschlossen se, se el Abbruchbedingung aktiv y el Programa springt en el untergeordnete Bucle des untergeordenten Ventana.
Anschließend voluntad ebenfalls sólo el para dieses Ventana wichtige Bedingungen abgefragt.

Damit du auch todos Bedingugen aller Ventana gleichzeitig abfragen kannst, necesario todos Bedingungen natürlich auch en uno Bucle mentira. Allternativ verschiebst du todos Bedingungen en un Función y rufst ellos en cada individual Bucle en.

Das Erste wäre con Bezug en sauberen Code el bessere Solución.

Thomas
Freier

Im Principio kann él sí x-beliebige Ventana encima 28.14 - Multiprozessing con XProfan abierto , bearbeiten, links mentira dejar y schließen.
En el DBFs debería esta entonces vorsichtshalber siempre sólo para Datenlesen y -speichern encima @db("Open", #N,S) aktiv ser. Bin No sicher, si beim Multiprozessing sonst a Problemen kommt, si de zwei Prozessen darauf zurückgegriffen se.

Gruß Thomas
Windows XP SP2, XProfan X2

H.Brill

Tal vez auch una TabControl qué para dich ?
Como puede ser el doch schön schalten. Und uno braucht
sólo una einzige Ereignis-Bucle. Man muß sólo aufpassen,
welcher Button/Control en welches Ventana gehört.
Hab hier algo vorbereitet. Bitte korrigiert mich, si
qué falso ser debería :

Declarar Dlg1&, Dlg2&, Dlg3&, tabctrl&, Reiter&
Declarar edit1&, edit2&, edit3&, edit4&, edit5&, btn1&, btn2&, btn3&, lb&
Título de la ventana "Mein Fenster"
Ventana 800, 600
tabctrl& = Crear("TabCtrl", %HWnd, "Kunden", 5, 10, 730, 550)
' Reiter invertir
@InsertTab(tabctrl&, 3, "Artikel")
@InsertTab(tabctrl&, 2, "Rechnungen")
Ventana de Estilo 1024
' 1. Diálogo
Dlg1&  = @Crear("Window",tabctrl&,"Kunden Verwaltung",10, 60, 700, 480)
edit1& = @Crear("Edit",    Dlg1&, "", 10, 10, 120, 25)
edit2& = @Crear("Edit",    Dlg1&, "", 10, 40, 120, 25)
btn1&  = @Crear("Button",  Dlg1&, "Kopiere", 10, 80, 60, 25)
lb&    = @Crear("ListBox", Dlg1& , 1, 10, 120, 120, 180)
AddStrings(lb&, "Maier")
AddStrings(lb&, "Müller")
AddStrings(lb&, "Schmitt")
' 2. Diálogo
Dlg2&  = @Crear("Window",tabctrl&,"Artikel Verwaltung",10, 60, 700, 480)
btn2&  = @Crear("Button", Dlg2&, "Test2", 10, 10, 60, 25)
edit3& = @Crear("Edit",   Dlg2&, "", 10, 50, 120, 25)
edit4& = @Crear("Edit",   Dlg2&, "", 10, 80, 120, 25)
' 3. Diálogo
Dlg3&  = @Crear("Window", tabctrl&, "Rechnungs Erstellung", 10, 60, 700, 480)
edit5& = @Crear("Edit", Dlg3&, "", 10, 10, 240, 25)
btn3&  = @Crear("Button", Dlg3&, "Test 3", 10, 50, 80, 25)
ShowWindow(Dlg2&, 0)
ShowWindow(Dlg3&, 0)
SetWindowPos Dlg1& = %WinLeft + 20, %WinTop + 100; 0

Mientras que 1

    WaitInput
    Reiter& = @GetActiveTab(tabctrl&)

    If @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

    Case %Key = 2 : Romper

    If @Clicked(btn1&)

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

    ElseIf @Clicked(btn2&)

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

    ElseIf @Clicked(btn3&)

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

    EndIf

EndWhile

End

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

Lo macht sí en el Principio absolute no hay diferencia si el Controls en una TabControl oder una Ventana mentira.
Das Wichtige es, el todos Bedingungen en uno Bucle mentira. Oder por Muliprozessing gleichzeitig abgefragt voluntad puede.

Yo denke de Handling her wären ChildWindows todavía el einfachste. ¿Puede du dir sí veces anschauen.

29.07.2013 ▲

Thomas
Freier

Tal vez trifft dieses Ejemplo el Gesuchte.