XProfan

Français

allô à Alle
...irgendwie steh je im Moment aufm Schlauch

mon Problem:
dans einem Dialogfenster ist une einzeilige Editeingabe et deux Buttons:
Einmal [démolir] et qui zweite [Eintragen] - comment bekomme je cela hin, dass ici avec
qui ALT- et einer Buchstabentaste cela Dialogfenster sortir de wird ???

aussi si Je l' Buchstaben unterstreiche (&) et dans dans qui Boucle extra bezeichne, gibt mir Windows beim Druck sur qui bouton un Beep et rien passiert. avec qui souris et Getfocus... klappt alles bestens. qui Boucle wird par Waitinput gesteuert. Hoffentlich habe je mich richtig erklärt. Liegt mir nämlich très am Herzen. - Sonst meckert iF später, dass qui Tasten im Programme pas so marcher comment qui User es gewohnt ist

14.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Peter
Max
Müller

Hi,
Folgendes funktioniert chez mir:
Kompilieren Marque Séparation

LET dl2_bcancel% = Create("Button",_dlg2searchlist%,"Ab&brechen",214,385,139,25)

mais je crois mich erinnern trop peut cela on cet Unterstützung dans
Windows ab/anschalten peux.

Guck la fois ici: [...]

je zitiere:
[quote-part:944a7725f7]
sous Windows 2000 comment folgt: Start > Einstellungen > Systemsteuerung > Anzeige (ou bien: Desktop, rechte Bouton de la souris, Eigenschaften), Registerkarte Effekte, là qui Option Tastaturnavigationsanzeiger ausblenden (avec ALT-bouton einblenden) désactiver.
[/quote-part:944a7725f7]

XProfan X3, X4ß, Win 10.1

14.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Abstellbar ist imho lediglich qui effet des pas-Unterstreichens qui Acceleratorkeys.

@Horst: Wird Dein Eingabefeld sortir de si le TAB-bouton gedrückt wird?

14.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Kompilieren Marque Séparation

SetFocus(edit1%)

WhileNot mE%

    WAITINPUT

    If GetFocus(mBack%)

        DesTroyWindow(win&)
        mE%=1
        SetActiveWindow(%HWnd)

    ENDIF

    IF GetFocus(mOK%)

        neu_name$=GETTEXT$(edit1%)
        neu_name$=path$+neu_name$
        DesTroyWindow(win&)
        mE%=1

        IF equ$(modus$,"0") Ordner

            neu_name$=UPPER$(neu_name$)

        ElseIf equ$(modus$,"1") Datei

            neu_name$=LOWER$(neu_name$)

        ENDIF

        FILE_ACTION "RENAME",datei$,neu_name$,1,0
        SetActiveWindow(%HWnd)

    ENDIF

WEND

So sieht qui Boucle aus - si le Tab-bouton gedrückt wird, wird cela ganze Dialogfenster gelöscht

14.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Sorry, Dein Beispiel ist pas courir.

14.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Kompilieren Marque Séparation

PROC UMBENENNEN                                                      UMBENENNEN

    Declare win&,mE%,mBack%,mOK%,edit1%,I%,txt%,font3%,font0%
    font0%=CREATE("FONT","ARIAL",14,0,0,0,0)
    font3%=CREATE("FONT","COMIC SANS MS",20,0,1,0,0)
    Declare text$,datei2$,neu_name$
    PARAMETERS path$,datei$,modus$
    datei$=path$+datei$
    mE%=0
    I%=LEN(datei$)
    text$=datei$
    Case GT(I%,35):text$=LEFT$(text$,3)+"..."+RIGHT$(text$,35)
    win&=CREATE("DIALOG",%HWnd,"Datei / Ordner umbenennen",SUB(DIV(%MaxX,2),200),SUB(DIV(%MaxY,2),90),400,180)
    txt%=CREATE("TEXT",win&,text$,20,10,340,20)
    SetFont txt%,font3%
    txt%=CREATE("TEXT",win&,"Geben Sie den neuen Namen ein und klicken Sie auf   [Uebernehmen]",20,38,480,20)
    SetFont txt%,font0%
    edit1%=CREATE("EDIT",win&,datei2$,20,60,350,25)
    I%=LEN(datei2$)
    sendmessage(edit1%,$00B1,I%,-1)
    SetFont edit1%,font3%
    mBack%=CREATE("BUTTON",win&,"&Zurück",20,100,80,25)
    SetFont mBack%,font0%
    mOK%=CREATE("DEFBUTTON",win&,"&Uebernehmen",290,100,80,25)
    SetFont mOK%,font0%
    SetFocus(edit1%)

    WhileNot mE%

        WAITINPUT

        If GetFocus(mBack%)

            DesTroyWindow(win&)
            mE%=1
            SetActiveWindow(%HWnd)

        ENDIF

        IF GetFocus(mOK%)

            neu_name$=GETTEXT$(edit1%)
            neu_name$=path$+neu_name$
            DesTroyWindow(win&)
            mE%=1

            IF equ$(modus$,"0") Ordner

                neu_name$=UPPER$(neu_name$)

            ElseIf equ$(modus$,"1") Datei

                neu_name$=LOWER$(neu_name$)

            ENDIF

            #### Hier wird dann zum Umbenennen verzweigt
            MessageBox(neu_name$,"Umbenennen...",64)
            END

        ENDIF

    WEND

ENDPROC

CLS
umbenennen "C:",s3>"TEMP","0"

[quote-part:e6c2730182]Sorry, Dein Beispiel ist pas courir.[/quote-part:e6c2730182]
Sorry iF - cela sollte seulement qui Boucle montrer - mais maintenant venez es: qui Code qui dessus steht funktioniert einwandfrei. Versuche Je l' gleichen Code dedans des Programmes, klappt es pas avec qui clavier. peux es à qui InitMessage de qui LISTVIEW.DLL liegen ? Frank peut-être weisst Du plus

14.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

[quote-part:34b90124fc]mais maintenant venez es: qui Code qui dessus steht funktioniert einwandfrei.[/quote-part:34b90124fc]cela verwundert mich entier et garnicht! c'est doch oui c'est ca qui Grund pour weshalb je lauffähige minimalbespiele wünsche. souvent liegt qui le chien arrêt woanders begraben.

14.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

non, je weiss aussi pas plus. qui Listview.dll registriert Tastatureingaben. mais cet volonté ensuite plus geleitet.

14.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation