XProfan

WhileNot E%                                          bringt irgendwann bei Aktivierung den Cursor durcheinander, warum ?????

    GetUSatz                                           Cursor springt nach jeder Tastatureingabe an den Anfang zurück!
    WaitInput

ElseIf @GetFocus(cmPrev%)    vorheriger DS

GetUSatz
@dbGo(<)
GetUSatz ~~~~~~~~hier einsetzen
@SetFocus(Firma%)

@dbOpen(#2,Lieferanten.dbf)
@dbUse(#2)
String1$= @GetDir$(@) + \Ordner\IX
dbCreateIndex PRODUKT > String1$   warum sind hier keine Pfadangaben möglich?
@dbIndex(String1$)                   sind!
@dbUse(#2)
@dbgo(TOP)
declare x%

If &dbRecCount > 0

    Let string1$ = @trim$(@dbget$(Produkt))
    ADDchoice(produkt%,@dbget$(PRODUKT))
    @dbgo(NEXT)

    While x% <&dbRecCount

        IF string1$ <> @trim$(@dbget$(Produkt))

            Let string1$ = @trim$(@dbget$(Produkt))
            ADDchoice(produkt%,@dbget$(PRODUKT))

        EndIf

        inc x%
        @dbgo(NEXT)

    EndWhile

    @Sendmessage(produkt%,$14E,2,0) hier 3. Zeile  anzeigen (3-1=2)

EndIf

@dbclose(#2)                               bei Aktivieren kann nicht kompiliert werden

cls
declare a%,b%,d1%,d2%,d3%,dlg%, End1%,End2%
usefont ms sans serif,15,7,0,0,0
setdialogfont 1
print Unterschiedliche Reaktionen beim Klick ins Fenster-Kreuz
print zum Schließen eines Dialog-Fensters.
let a%=createbutton(%hwnd,Ende,50,150,50,20)
let d1%=createbutton(%hwnd,Dialog 1,150,150,50,20)
let d2%=createbutton(%hwnd,Dialog 2,250,150,50,20)
let d3%=createbutton(%hwnd,Dialog 3,350,150,50,20)

whilenot End1%

    WaitInput

    If %key=2

        BREAK

    ElseIf getfocus(a%)

        let End1%=1

    ElseIf getfocus(d1%) Dialog wird durch Klick im Fenster-Kreuz beendet

        let dlg%=Createdialog(%hwnd,Dialog 1,300,250,200,200)
        let b%=createbutton(dlg%,Ende,50,150,50,20)
        let End2%=0
        print
        print Nur das Dialog-Fenster wird durch Klick ins Fenster-Kreuz beendet!

        whilenot End2%

            WaitInput

            If %key=2

                BREAK

            ElseIf getfocus(b%)

                let End2%=1

            EndIf

        EndWhile

        @DestroyWindow(dlg%)

    ElseIf getfocus(d2%) Dialog wird durch Klick im Fenster-Kreuz beendet aber nicht zerstört

        ein zweiter Klick schließt das Hauptfenster
        let dlg%=Createdialog(%hwnd,Dialog 2,300,250,200,200)
        let b%=createbutton(dlg%,Ende,50,150,50,20)
        let End2%=0

        whilenot End2%

            WaitInput

            If %key=2

                print
                print Beim nächsten Klick schließt auch das Hauptfenster!
                BREAK

            ElseIf getfocus(b%)

                @DestroyWindow(dlg%)
                let End2%=1

            EndIf

        EndWhile

    ElseIf getfocus(d3%) Dialog wird durch Klick im Fenster-Kreuz beendet und

        das Hauptfenster wird beendet da auch hier die If %key=2 Abfrage
        eingebaut ist
        print
        print Beim nächsten Klick schließt auch das Hauptfenster!
        let dlg%=Createdialog(%hwnd,Dialog 3,300,250,200,200)

    endif

endwhile

end