XProfan

Español

¡Hola a Alle
...irgendwie steh Yo en el Moment aufm Schlauch

Mein Problema:
In una Dialogfenster es una einzeilige Editeingabe y zwei Buttons:
Einmal [Alto] y zweite [Eintragen] - Como bekomme Yo el hin, dass hier con
el ALT- y uno Buchstabentaste el Dialogfenster verlassen se ???

Auch si yo el Buchstaben unterstreiche (&) y en el Bucle extra bezeichne, son me Windows beim Druck en el Taste una Beep y nichts passiert. Mit ratón y Getfocus... klappt alles bestens. El Bucle se por Waitinput gesteuert. Hoffentlich Yo mich correcto erklärt. Liegt me nämlich muy al Herzen. - Sonst meckert IF später, dass el Tasten en el Programa no así trabajo como el User lo gewohnt es

14.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Peter
Max
Müller

Hi,
Folgendes funktioniert en me:
Kompilieren Marca Separación

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

Aber Yo glaube mich erinnern a puede el uno esta Unterstützung en
Windows de/anschalten kann.

Guck Tiempo hier: [...]

Yo zitiere:
[quote:944a7725f7]
Bajo Windows 2000 como folgt: Start > Einstellungen > Systemsteuerung > Anzeige (oder: Desktop, rechte Botón del ratón, Características), Registerkarte Effekte, hay el Opción Tastaturnavigationsanzeiger ausblenden (con ALT-Taste einblenden) deaktivieren.
[/quote:944a7725f7]

XProfan X3, X4ß, Win 10.1

14.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Abstellbar es mi humilde opinión lediglich el Effekt des no-Unterstreichens el Acceleratorkeys.

@Horst: Wird Su Eingabefeld verlassen si la TAB-Taste gedrückt se?

14.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kompilieren Marca Separación

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 el Bucle de - si la Tab-Taste gedrückt se, se todos Dialogfenster gelöscht

14.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sorry, Su Ejemplo es no lauffähig.

14.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kompilieren Marca Separación

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:e6c2730182]Sorry, Su Ejemplo es no lauffähig.[/quote:e6c2730182]
Sorry IF - el debería sólo el Bucle zeigen - aber ahora kommt lo: el Code el oben es funktioniert einwandfrei. Versuche Yo, el gleichen Code innerhalb des Programmes, klappt no con el Tastatur. Kann lo a el InitMessage de el LISTVIEW.DLL mentira ? Franco tal vez weisst Usted más

14.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

[quote:34b90124fc]aber ahora kommt lo: el Code el oben es funktioniert einwandfrei.[/quote:34b90124fc]Das verwundert mich bastante y garnicht! Es doch genau el Grund dafür por qué Yo lauffähige minimalbespiele wünsche. Oft liegt el Hund sólo woanders begraben.

14.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Nein, Sé que auch no más. El Listview.dll registriert Tastatureingaben. Aber esta voluntad entonces más geleitet.

14.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita