XProfan

Julian
Schmidt

You could through WindowFromPoint the deal under the mouse detect. and any Tasteneingaben on the window weiterleiten.

here one integrally primitives example.

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

While 1

    WaitScan
    hhdl&=HandleHover()

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

        If %ScanKey=8

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

        Else

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

        EndIf

    Endif

EndWhile

Proc HandleHover

    Declare mpos#
    Dim mpos#,8
    External("user32","GetCursorPos",mpos#)
    Var hdl&=External("USER32","WindowFromPoint",long(mpos#,0),long(mpos#,4))
    Dispose mpos#
    Return hdl&

ENDPROC

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

Julian
Schmidt

Have time your View source angeschaut.

i'm noticed that you in the Procedur "accessrights" 45 durchnummerierte variables for your Rechterverwaltung verwendest. Leichter would here The usage one Arrays.

declare right%[]'Deklaration
Clear right%[]'on 0 settle

whileloop 0,44

    case right$=Str $(&loop+1) :  right%[&loop]=1'If right vorhanden; then same 1

Endwhile

'request the right then by

If right%[NummerRecht%-1]

Endif

holmol93

Heyhoo

because of your first response:
I must me whom View source time very look at, in the momentum understand I there only railway-station hihi

my Programmierkenntnisse are still right dull, particularly if it circa systemnahe functions goes...

must me time by the Befehlsregister durchwühlen, what each instruction of it very bewirkt

to the Rechtezuteilung:

Hehe, there having wirs again ;) I known To even not even, what Arrays are, therefore Have I me so moreover helped, as me then in whom sense come is

but I know, that some functions not yet straight meaningfully, geschweige because performant umgesetzt are... by then becomes yet some waters over the Rhein weg ;)

in the momentum would like I first once whom Mehrfensterbetrieb into handle get... because without is the whole software very with difficulty To bedienen^^
(so one in the Auftragsübersicht ditto a Overview over any item overlay can, without any Window first To close, have I me yet with a Hotkey beholfen (F1) , the a small Dialogue with all Artikeln einblendet)

Greetz,

danny

XProfan X2

Julian
Schmidt

Vieleicht can you time one minimalistisches example post.what aufzeigt How your Fensterbetrieb straight looks. and subsequently describe How You you whom Mehrfensterbetrieb vorstellst.

I faith here none pleasure a Tausendzeilen-code durchzusuchen.

and i'm too not yet clear what You eig want.

holmol93

Ah means:

I refer me thereby always on our Access basierendes Datenbanksystem in the deal.
I can so many Formulare open having, How i will, once How I of a in that others Window wechsle, can I Inputs make.

by me ists Yes now grade so:
You want a order search. means gehtst You zB into Kundendaten, dial as a customers from. The Kundendetails open itself. From there click You on a order. The order opens itself.
now having we 3 Window open. I can however, without first any "übergeordneten" in the Order To close, not simply such a thing in the Kundenübersicht make. clicking goes already, however reacted nothing, solang How the Auftragsfenster active is.

I have there already rumprobiert with the different Fensterstilen, I meant have, it's located on the Dialogfensterstil.
But if the so would, could I Yes in the %HWND nevertheless Inputs distinguished, what however neither possible is

Gruess,
danny

XProfan X2

Julian
Schmidt

I go of it from that you for each Window a Loop have, in the You The for the Window important terms abgefragst.
once the window closed becomes, becomes The Abbruchbedingung active and the program jumping into untergeordnete Loop the untergeordenten Window.
subsequently go ditto only The for this Window important terms quizzed.

so You too any Bedingugen all Window at the same time inquire can, must any terms naturally too in a Loop lying. Allternativ shift You any terms in a function and call tappt im dunkeln in eachone individual Loop on.

the first would with reference on tidy code The better Solution.

Thomas
Freier

in the principle can it Yes x-arbitrary Window over 28.14 - Multiprozessing with XProfan open , Edit, left lying let and close.
with whom DBFs should these then vorsichtshalber always only to that Datenlesen and -Save over @db("Open", #n,s) active his. be I do not sure, whether it at Multiprozessing otherwise To Problemen comes, if two Prozessen hereon zurückgegriffen becomes.

Gruß Thomas
Windows XP SP2, XProfan X2

H.Brill

Perhaps is too one TabControl take off you ?
there can the still beautiful chid. and one need
only a only incident-Loop. one must only pay attention,
which Button/Control in which Window heard.
Have here something prepared. Please korrigiert me, if
what wrong his ought to :

Declare Dlg1&, Dlg2&, Dlg3&, tabctrl&, Reiter&
Declare edit1&, edit2&, edit3&, edit4&, edit5&, btn1&, btn2&, btn3&, lb&
Window Title "Mein Fenster"
Window 800, 600
tabctrl& = Create("TabCtrl", %HWnd, "Kunden", 5, 10, 730, 550)
' tab lay out
@InsertTab(tabctrl&, 3, "Artikel")
@InsertTab(tabctrl&, 2, "Rechnungen")
Window Style 1024
' 1. dialog
Dlg1&  = @Create("Window",tabctrl&,"Kunden Verwaltung",10, 60, 700, 480)
edit1& = @Create("Edit",    Dlg1&, "", 10, 10, 120, 25)
edit2& = @Create("Edit",    Dlg1&, "", 10, 40, 120, 25)
btn1&  = @Create("Button",  Dlg1&, "Kopiere", 10, 80, 60, 25)
lb&    = @Create("ListBox", Dlg1& , 1, 10, 120, 120, 180)
AddStrings(lb&, "Maier")
AddStrings(lb&, "Müller")
AddStrings(lb&, "Schmitt")
' 2. dialog
Dlg2&  = @Create("Window",tabctrl&,"Artikel Verwaltung",10, 60, 700, 480)
btn2&  = @Create("Button", Dlg2&, "Test2", 10, 10, 60, 25)
edit3& = @Create("Edit",   Dlg2&, "", 10, 50, 120, 25)
edit4& = @Create("Edit",   Dlg2&, "", 10, 80, 120, 25)
' 3. dialog
Dlg3&  = @Create("Window", tabctrl&, "Rechnungs Erstellung", 10, 60, 700, 480)
edit5& = @Create("Edit", Dlg3&, "", 10, 10, 240, 25)
btn3&  = @Create("Button", Dlg3&, "Test 3", 10, 50, 80, 25)
ShowWindow(Dlg2&, 0)
ShowWindow(Dlg3&, 0)
SetWindowPos Dlg1& = %WinLeft + 20, %WinTop + 100; 0

While 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 : Break

    If @Clicked(btn1&)

        'MessageBox("Button in customers management clicked !", "Info", 0)
        SetText edit5&, GetString$(lb&, GetCurSel(lb&))

    ElseIf @Clicked(btn2&)

        MessageBox("Button in item management clicked !", "Info", 0)

    ElseIf @Clicked(btn3&)

        MessageBox("Button in Rechnungs Creation clicked !", "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.

07/29/13 ▲

Julian
Schmidt

it power Yes in the principle absolute none Difference whether The Controls on a TabControl or a Window lying.
the important is, the any terms in a Loop lying. or by Muliprozessing at the same time quizzed go can.

i think of Handling since wären ChildWindows yet the simplest. can you you Yes time look at.

07/29/13 ▲

Thomas
Freier

Perhaps meets this example the sought.