Event: #CBN_EDITCHANGE
Wenn ich mit SetGadgetText hantiere, dann wird diese Prozedur nicht ausgeführt. Wahrscheinlich muss ich eine Nachricht posten oder senden? Wie mache ich dies - wie spiele ich Windows eine manuelle Änderung vor?
(WinAPI ist noch recht neu für mich).
kleiner Codeausschnitt:
Code: Alles auswählen
Select ET
Case #CBN_EDITCHANGE
Select Right(GetGadgetText(#Diagnosen),1)
Case "%"
If Len(GetGadgetText(#Diagnosen)) > 1
Liste_fuellen()
EndIf
Case " "
SetGadgetText(#Diagnosen, Left(GetGadgetText(#Diagnosen), Len(GetGadgetText(#Diagnosen)) - 1))
Liste_fuellen()
EndSelect
EndSelect
...
SetGadgetText(#Diagnosen, GetGadgetItemText(#SitListe, pos, 2)+ "%")
SendMessage_(GadgetID(#Diagnosen), #CBN_EDITCHANGE, 0, 0)
OK, ich habe eine bessere Möglichkeit gefunden und betrachte die Sache vorerst als erledigt. Möge der Admin sein Eraser anstoßen.
EOF