Français
Source/ Codesnippets

Akzeptiert Éditer Enter Erkennt Textver

 

Jörg
Sellmeyer
Éditer sur einem Dialogcontrol akzeptiert "ENTER".
malheureusement wird ensuite aussi ESC pas plus à cela %hwnd durchgereicht
Aussi une Abfrage zur Erkennung de Textveränderung
KompilierenMarqueSéparation
 $H windows.ph
Def CN(2) If(%message = $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("DIALOG","",$54000000,310,10,200,24,%hwnd,0,%hinstance)
Var Ed& = Create("Edit",test&,"Hier ist der Text",0,0,200,24)
SetFocus(Ed&)
Print "Taste oder Enter drücken"

While 1

    WaitInput
    Locate 2,1

    If %key = 2

        Break

    ElseIf EnterOn(Ed&)

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

    ElseIf EN_CHANGE(Ed&)

        Print GetText$(&lparam)

    EndIf

Wend

 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
30.10.2011  
 




Jörg
Sellmeyer
So geht's besser. Pour cette doit quelques Tasten comme Hotkey belegt volonté.
KompilierenMarqueSéparation
 $H windows.ph
Def CN(2) If(%message = $0111,((&lparam = &(1)) And (HiWord(&wparam) = &(2))),0)
Def EN_CHANGE(1) CN(&(1),$0300)
Def OnEnter(0) MenuItem(13)
Def OnESC(0) MenuItem(27)
Def OnTAB(0) MenuItem(9)

Proc GetNextChild

    Parameters h&
    Var ID% = ItemId(h&)
    Var hNext& = GetHandle(~GetParent(h&),ID% + 1)
    Case hNext& = 0:hNext& = GetHandle(~GetParent(h&),1000)
    Return hNext&

EndProc

Cls
AddHotKey 9,9,0
AddHotKey 13,13,0
AddHotKey 27,27,0
Var Ed& = Create("Edit",%hwnd,"Text 1",400,10,200,24)
Var Ed1& = Create("Edit",%hwnd,"Text 2",400,40,200,24)
Var Ed2& = Create("Edit",%hwnd,"Text 3",400,70,200,24)
Var Ed3& = Create("Edit",%hwnd,"Text 4",400,100,200,24)
Var Ed4& = Create("Edit",%hwnd,"Text 5",400,130,200,24)
Print "Taste oder Enter drücken"

While 1

    WaitInput

    If %key = 2

        Break

    ElseIf OnTAB()

        SetFocus(GetNextChild(%getfocus))
        Print "auf zum Nächsten " + GetText$(GetNextChild(%getfocus))

    ElseIf OnEnter()

        Print "Enter gedrückt " + GetText$(%getfocus)

    ElseIf OnESC()

        Print "Raus aus dem Edit                     "
        SetFocus(%hwnd)

    ElseIf EN_CHANGE(Ed&)

        Print GetText$(&lparam)

    EndIf

/../../funktionsreferenzen/XProfan/Wend/'>Wend

 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
30.10.2011  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

7.754 Views

Untitledvor 0 min.
H.Brill15.08.2024
RudiB.03.03.2024
Thomas Zielinski26.01.2023
Frank Reibold25.11.2022
plus...

Themeninformationen

cet Thema hat 1 participant:

Jörg Sellmeyer (2x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie