XProfan

English

Thomas
Freier

gives it a Possibility, these dialogs always in the Vordergrund To hold?

Gruß Thomas
Windows XP SP2, XProfan X2

12/28/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

Perhaps. helps you the:
Compile Mark Separation

def GetOpenFileName(1) ! "COMDLG32.DLL","GetOpenFileNameA"
def CommDlgExtendedError(0) ! "COMDLG32.DLL","CommDlgExtendedError"
def GetParent(1) ! "USER32.DLL","GetParent"
cls
Multiloadfile()
end

Proc Multiloadfile

    declare title$,fmask$,drive$,fle$,mem#
    Dim mem#,8100
    title$="Dateiwahl:"
    fmask$="Beliebige Datei (*.*)z*.*zz"
    Long mem#,0=76,0,%hInstance,Addr(fmask$)
    Long mem#,28=mem#+100,8000
    Long mem#,44=Addr(drive$),Addr(title$)
    Long mem#,52=( 4 | 2 | 32 | 524288 )
    Long mem#,68=procaddr(Multiloadfile.hookProc,4)
    Getopenfilename(mem#)

    if Commdlgextendederror()

        Dispose mem#
        return 0

    endif

    fle$=String$(mem#,100)
    Dispose mem#
    Return fle$

    proc Multiloadfile.hookProc

        parameters h&,m&,w&,l&
        casenot m&=$110 : return m&//wm_initDialog
        setWindowPos getParent(h&)=(%maxx2-215),(%maxy2-200) - width(getParent(h&))+6,height(getParent(h&))+%cyCaption+6;-1
        return 0

    endproc

Endproc

and with Nproc (absturzsicher):
Compile Mark Separation

def GetOpenFileName(1) ! "COMDLG32.DLL","GetOpenFileNameA"
def CommDlgExtendedError(0) ! "COMDLG32.DLL","CommDlgExtendedError"
cls
Multiloadfile()
end

Proc Multiloadfile

    declare title$,fmask$,drive$,fle$,mem#
    Dim mem#,8100
    title$="Dateiwahl:"
    fmask$="Beliebige File (*.*)z*.*zz"
    Long mem#,0=76,0,%hInstance,Addr(fmask$)
    Long mem#,28=mem#+100,8000
    Long mem#,44=Addr(drive$),Addr(title$)
    Long mem#,52=( 4 | 2 | 32 | 524288 )
    Long mem#,68=procaddr(Multiloadfile.hookProc,4)
    Getopenfilename(mem#)

    if Commdlgextendederror()

        Dispose mem#
        return 0

    endif

    fle$=String $(mem#,100)
    Dispose mem#
    Return fle$

    nproc Multiloadfile.hookProc

        parameters h&,m&,w&,l&
        casenot m&=wm_initDialog : return m&
        setWindowPos(getParent(h&),hwnd_topmost,200,200,0,0,swp_nosize)
        return 0

    endproc

Endproc

12/31/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

with eigenem LoadFile-dialog ought to the already weg, vlt. helps [...]

[...]

12/28/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Freier

known versions. resolve but ncht the trouble.any mutants stay only before the Main window and not before the Create("Window",n,s,X1,Y1,X2,Y2) or. Create("Dialog",n,s,X1,Y1,X2,Y2) in the Vordergrund.

Gruß Thomas
Windows XP SP2, XProfan X2

12/31/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Perhaps. helps you the:
Compile Mark Separation

def GetOpenFileName(1) ! "COMDLG32.DLL","GetOpenFileNameA"
def CommDlgExtendedError(0) ! "COMDLG32.DLL","CommDlgExtendedError"
def GetParent(1) ! "USER32.DLL","GetParent"
cls
Multiloadfile()
end

Proc Multiloadfile

    declare title$,fmask$,drive$,fle$,mem#
    Dim mem#,8100
    title$="Dateiwahl:"
    fmask$="Beliebige Datei (*.*)z*.*zz"
    Long mem#,0=76,0,%hInstance,Addr(fmask$)
    Long mem#,28=mem#+100,8000
    Long mem#,44=Addr(drive$),Addr(title$)
    Long mem#,52=( 4 | 2 | 32 | 524288 )
    Long mem#,68=procaddr(Multiloadfile.hookProc,4)
    Getopenfilename(mem#)

    if Commdlgextendederror()

        Dispose mem#
        return 0

    endif

    fle$=String$(mem#,100)
    Dispose mem#
    Return fle$

    proc Multiloadfile.hookProc

        parameters h&,m&,w&,l&
        casenot m&=$110 : return m&//wm_initDialog
        setWindowPos getParent(h&)=(%maxx2-215),(%maxy2-200) - width(getParent(h&))+6,height(getParent(h&))+%cyCaption+6;-1
        return 0

    endproc

Endproc

and with Nproc (absturzsicher):
Compile Mark Separation

def GetOpenFileName(1) ! "COMDLG32.DLL","GetOpenFileNameA"
def CommDlgExtendedError(0) ! "COMDLG32.DLL","CommDlgExtendedError"
cls
Multiloadfile()
end

Proc Multiloadfile

    declare title$,fmask$,drive$,fle$,mem#
    Dim mem#,8100
    title$="Dateiwahl:"
    fmask$="Beliebige File (*.*)z*.*zz"
    Long mem#,0=76,0,%hInstance,Addr(fmask$)
    Long mem#,28=mem#+100,8000
    Long mem#,44=Addr(drive$),Addr(title$)
    Long mem#,52=( 4 | 2 | 32 | 524288 )
    Long mem#,68=procaddr(Multiloadfile.hookProc,4)
    Getopenfilename(mem#)

    if Commdlgextendederror()

        Dispose mem#
        return 0

    endif

    fle$=String $(mem#,100)
    Dispose mem#
    Return fle$

    nproc Multiloadfile.hookProc

        parameters h&,m&,w&,l&
        casenot m&=wm_initDialog : return m&
        setWindowPos(getParent(h&),hwnd_topmost,200,200,0,0,swp_nosize)
        return 0

    endproc

Endproc