XProfan

« cette Beitrag wurde comme Solution gekennzeichnet. »

Matthias
Arlt

si déjà SubClassing, ensuite etwa so:

SUBCLASSPROC

    IF SUBCLASSMESSAGE(Edit&, ~WM_KEYUP) OU SUBCLASSMESSAGE(Edit&, ~WM_PASTE)

        SET("WinProc", 1)
        LOCATE 10,1
        PRINT "Subclassing erfolgreich"

    ENDIF

    IF SendMessage(Edit&,~EM_GETMODIFY,0,0)

        IF GETTEXT$(Edit&) = "Ende"

            PRINT "Einfach klicken pour "; GETTEXT$(Edit&)
            waitinput
            Ende% = 1

        ENDIF

    ENDIF

ENDPROC

avec solcher "Eingabeaufforderung" dans qui SubClassproc ist cela mais aucun très elegante Solution... et eigentlich braucht es pour ne...aucune SubClassing, car so ca va aussi:

CLS
Edit& = CREATE("Edit",%HWND, », 10,10,100,20)

WHILENOT Ende%

    WAITINPUT

    IF SendMessage(Edit&,~EM_GETMODIFY,0,0)

        IF GETTEXT$(Edit&) = "Ende"

            PRINT "Einfach klicken pour "; GETTEXT$(Edit&)
            waitinput
            Ende% = 1

        ENDIF

    ENDIF

WEND

FIN

Es sei car, Du brauchst cela SubClassing encore pour weitere, ici encore pas enthaltene Funktionen...

cela EM_GETMODIFY ist dans beiden Fällen entbehrlich et dient seulement zur Demo, wohin et comment on es anwendet.

Salut Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

07.10.2020 ▲

Matthias
Arlt

lt. Win32hlp: à application sends à EM_GETMODIFY message to determine whether le content of à edit control has been modified.

EM_GETMODIFY devrait alors zunächst à cela Éditer gesendet volonté. comment WM_KEYUP oui aussi...par Loslassen einer bouton...

Salut Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

EM_GETMODIFY [...]

soll on (per SendMessage) à cela Éditer senden et am Rückgabewert erkennen, si cela Éditer "modifiziert" wurde.

Alle Sprachen
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

cas sendMessage(hEdit,wm_getmodify,0,0) : imprimer "modif."

Subclassmessage wäre hierbei hilfreich si Windows qui nouvelle à l' Éditer sendet, quoi mais pas qui le cas ist.

il y a mais aussi EN_CHANGE ( [...]

) - vlt. plutôt quoi tu cherches.

Stephan
Sonneborn

iF (05.10.2020)

il y a mais aussi EN_CHANGE ( [...]

) - vlt. plutôt quoi tu cherches.

Hm. non. allez aussi pas...
WM_KEYUP wäre oui OK, mais si on quelque chose per Zwischenablage et Kontextmenü einfügt, bekomme je cela pas avec...

XProfan X4
Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

Matthias
Arlt

...si on quelque chose per Zwischenablage et Kontextmenü einfügt, bekomme je cela pas avec...

Doch, simple sur WM_PASTE réagir...oui c'est ca comment WM_KEYUP.

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

Stephan
Sonneborn

Hm... Irgendwie peux je ensuite gar rien plus insérer per CTRL+V ou bien RMT+insérer...

'************************************************************************************************
'* SubClassing                                                                                  *
'************************************************************************************************
 $H MESSAGES.PH
DECLARE Edit&
DECLARE Ende%
'+----------------------------------------------------------------------------------------------+

SUBCLASSPROC

    'IF SUBCLASSMESSAGE(Edit&, ~EM_GETMODIFY)

    IF SUBCLASSMESSAGE(Edit&, ~WM_KEYUP) OU SUBCLASSMESSAGE(Edit&, ~WM_PASTE)

        IF GETTEXT$(Edit&) = "Ende"

            LOCATE 10,1
            PRINT "Einfach klicken pour "; GETTEXT$(Edit&)
            Ende% = 1

        ENDIF

        SET("WinProc", 0)

    ENDIF

ENDPROC

'+----------------------------------------------------------------------------------------------+
CLS
Edit& = CREATE("Edit",%HWND, », 10,10,100,20)
SUBCLASS Edit&,1

WHILENOT Ende%

    WAITINPUT

WEND

SUBCLASS Edit&,0
FIN

XProfan X4
Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

06.10.2020 ▲

Matthias
Arlt

qui einzufügende String doit naturellement aussi beim Éditer arriver. alors qui Message pas seulement intercepter, mais pour entrée aussi à qui originale WindowProc vom Éditer weiterreichen per 'SET("WinProc", 1)'. ou bien mais selbst behandeln (bspw. 'settext'...)

Salut Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

06.10.2020 ▲

Matthias Arlt (06.10.2020)

Stephan
Sonneborn

Vielen Dank pour Votre Aider, Matthias!

Hab maintenant WinProc wieder eingeschaltet. après voulais je ensuite cela Éditer-champ auswerten... sans Erfolg.

'************************************************************************************************
'* SubClassing                                                                                  *
'************************************************************************************************
 $H MESSAGES.PH
DECLARE Edit&
DECLARE Ende%
'+----------------------------------------------------------------------------------------------+

SUBCLASSPROC

    'IF SUBCLASSMESSAGE(Edit&, ~EM_GETMODIFY)

    IF SUBCLASSMESSAGE(Edit&, ~WM_KEYUP) OU SUBCLASSMESSAGE(Edit&, ~WM_PASTE)

        SET("WinProc", 1)
        LOCATE 10,1
        PRINT "Subclassing erfolgreich"

        IF GETTEXT$(Edit&) = "Ende"

            PRINT "Einfach klicken pour "; GETTEXT$(Edit&)
            Ende% = 1

        ENDIF

    ENDIF

ENDPROC

'+----------------------------------------------------------------------------------------------+
CLS
Edit& = CREATE("Edit",%HWND, », 10,10,100,20)
SUBCLASS Edit&,1

WHILENOT Ende%

    WAITINPUT

WEND

SUBCLASS Edit&,0
FIN

XProfan X4
Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

07.10.2020 ▲

Matthias
Arlt

si déjà SubClassing, ensuite etwa so:

SUBCLASSPROC

    IF SUBCLASSMESSAGE(Edit&, ~WM_KEYUP) OU SUBCLASSMESSAGE(Edit&, ~WM_PASTE)

        SET("WinProc", 1)
        LOCATE 10,1
        PRINT "Subclassing erfolgreich"

    ENDIF

    IF SendMessage(Edit&,~EM_GETMODIFY,0,0)

        IF GETTEXT$(Edit&) = "Ende"

            PRINT "Einfach klicken pour "; GETTEXT$(Edit&)
            waitinput
            Ende% = 1

        ENDIF

    ENDIF

ENDPROC

avec solcher "Eingabeaufforderung" dans qui SubClassproc ist cela mais aucun très elegante Solution... et eigentlich braucht es pour ne...aucune SubClassing, car so ca va aussi:

CLS
Edit& = CREATE("Edit",%HWND, », 10,10,100,20)

WHILENOT Ende%

    WAITINPUT

    IF SendMessage(Edit&,~EM_GETMODIFY,0,0)

        IF GETTEXT$(Edit&) = "Ende"

            PRINT "Einfach klicken pour "; GETTEXT$(Edit&)
            waitinput
            Ende% = 1

        ENDIF

    ENDIF

WEND

FIN

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

07.10.2020 ▲

Stephan
Sonneborn

allô Matthias,

vielen Dank pour Dein Beispiel!

cela fait es klarer! je voulais mich simple la fois à qui "neuen" Funktionen voiture. comme but soll es oui un Vokabeltrainer volonté.

et je voulais übers Subclassing une Zeitmesser courir laisser. Klappt aussi très bien!

et ensuite voulais je au cours de qui Eingabe einer Antwort avec einem change eines Icônes pour richtig ou bien faux une Rückmeldung donner.

cela Beispiel dessus sollte cela Problem seulement vereinfacht représenter. je denke, maintenant bekomme je es hin!

XProfan X4
Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

08.10.2020 ▲

Matthias
Arlt

allô Stephan,
ensuite gutes Gelingen! Freut mich, si je un peu en supplément beitragen konnte...
Salut Matthias

Alle Sprachen
WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

08.10.2020 ▲