Español
Foro

Editar enter beep farbig readonly

 

Ernst
¡Hola Fachleute!
El Eingaben en el Editar debería para weitere Verarbeitung con <Enter> abgeschlossen voluntad (analog como en Input; lo sino que debe eben no una propio Entrada-Dialogbox ser).
Das Abfragen el Enter-Taste es kein Problema, aber como kann Yo, el störenden Beep unterbinden?
Yo ya geraume Tiempo gegooglet, aber sin algo verwertbares para encontrar.
Sombrero alguien una profane- oder api-Solución ?
Grüsse Ernst
 
12.04.2016  
 




RudiB.
qué porque para una Beep...
habs veces getestet....
hier una Ejemplo de el Foro...
 $H windows.ph
Def CN(2) If(%mensaje = $0111,((&lparam = &(1)) And (HiWord(&wparam) = &(2))),0)
Def EN_CHANGE(1) CN(&(1),$0300)
Def EnterOn(1) (%key = 13) And (&lparam = &(1))
Cls
Var test& = Control("DIÁLOGO","",$54000000,310,10,200,24,%hwnd,0,%hInstance)
Var Ed& = Crear("Edit",test&,"Hier es el Text",0,0,200,24)
SetFocus(Ed&)
Imprimir "Taste oder Enter drücken"

Mientras que 1

    WaitInput
    Localizar 2,1

    If %key = 2

        Romper

    ElseIf EnterOn(Ed&)

        Imprimir "Enter gedrückt " + GetText $(&lparam)

    ElseIf EN_CHANGE(Ed&)

        Imprimir GetText $(&lparam)

    EndIf

Wend

 
FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM
12.04.2016  
 




Ernst
Vielen Dank; el código de Jörg Tuve ya veces gesehen, war aber nun anscheinend no imstande ihn otra vez zufinden

en obigem Code Yo nun Edit con Farbe hinterlegt, sin embargo en read-only Es el Farbe weg (grauer Hintergrund) - ebenso sin Farbe ( weißer Hintergrund) se en grau gesetzt.
 $H windows.ph
 $H messages.ph
Def CN(2) If(%mensaje = ~WM_COMMAND,((&lparam = &(1)) And (hiword(&wparam) = &(2))),0)
Def EN_CHANGE(1) CN(&(1),~EN_CHANGE)
Def EnterOn(1) (%key = 13) And (&lparam = &(1))
Declarar OCP&,Brush&
' -------------------------------------------------------------------------------------

Proc ControlProc

    parámetros Wnd&, Msg&, wParam&, lParam&

    IF Brush&

        ~DeleteObject(Brush&)

    Endif

    If msg&=~WM_CTLCOLOREDIT or msg&=~WM_CTLCOLORSTATIC

        Brush& = ~CreateSolidBrush(RGB(255,255,170))
        ~SetBkMode(wParam&, ~TRANSPARENT)
        Volver Brush&

    Endif

    Volver ~CallWindowProc(OCP&,Wnd&, Msg&, WParam&, LParam&)

ENDPROC

' -------------------------------------------------------------------------------------
CLS
Var test& = Control("DIÁLOGO","",$54000000,310,10,200,24,%hwnd,0,%hInstance)
Var Ed& = Crear("Edit",test&,"Hier es el Text",0,0,200,24)
OCP& = ~SetWindowLong(test&,~GWL_WNDPROC, ProcAddr(ControlProc,4))
SetFocus(Ed&)
SendMessage(ed&,$CF,1,0)' read only
Imprimir "Taste oder Enter drücken"

Mientras que 1

    WaitInput
    Localizar 2,1

    If %key = 2

        Romper

    ElseIf EnterOn(Ed&)

        Imprimir "Enter gedrückt " + GetText $(&lparam)

    ElseIf EN_CHANGE(Ed&)

        Imprimir GetText $(&lparam)

    EndIf

EndWhile

IF Brush&

    ~DeleteObject(Brush&)

Endif

End

hay nun irgendeine Möglichkeit, el Editar en read-only a conjunto, wobei aber el Color de fondo retenido ?

Grüsse y Dank en el Vorhinein

hab's ya gefunden; si Edit read-only es, envía no ~WM_CTLCOLOREDIT pero ~WM_CTLCOLORSTATIC.
Im Code (oben) eingefügt y funkt. - JUHU
 
13.04.2016  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

4.708 Views

Untitledvor 0 min.
H.Brill15.08.2024
Walter12.05.2023
RudiB.29.12.2021
Torben Nissen26.04.2020
Más...

Themeninformationen

Dieses Thema ha 2 subscriber:

Ernst (2x)
RudiB. (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie