| |
| |
|
Rainer
Hoefs | ¡Hola,
habe me gestern el XProfanX4s gekauft.
Der Hauptgrund war el schönere SpinEdit-Control.
Nun lugar Yo fest, daß uno en él valor no mehr con el MouseWheel einstellen kann.
Kennt alguien una solución?
Und entonces una Cuestión:
Yo möchte en el SpinEdit no Eingabe en Tastatur zulassen.
Der Valor se sólo en UpDown-Arrows oder encima el MouseWheel eingestellt voluntad puede.
Posesiones ya en el Messages gesucht, aber nichts gefunden. (Tal vez auch con uno falschen Concepto gesucht.)
Für Ayuda siempre dankbar
Rainer
[OFFTOPIC]Hab veces el Titel algo ergänzt
Jörg
[/OFFTOPIC] |
|
| |
| |
| |
|
|
H.Brill | Daß el Mausrad otra vez va, se bastante
schwierig.
El otro Sache, daß lo sólo en Pfeile
va, es machbar.
Hab Yo auch no gewußt, pero ausprobiert :
SendMessage(spin, $00CF, 1, 0)
Einfach el Editar campo des Spins en READ_ONLY conjunto.
Siehe Messages para Editfelder.
Como uno así schön sagt :
VERSUCH MACHT KLUCH !!!!!!!!!!!!!!!  |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 10.03.2018 ▲ |
|
| |
|
|
Rainer
Hoefs | |
| |
| |
| |
|
|
H.Brill | Yo habe algo gesucht y podría dir algo como
anbieten :
Declarar Handle spin, Largo ende
Ventana 600, 400
spin = Crear("SpinEdit",%HWnd,"0;0;100",10,10,48,24)
SendMessage(spin, $00CF, 1, 0)
Mensajes del usuario $20A, $010
ende = 0
Sinestar encargado ende
WaitInput
Select %UMessage
CaseOf $20A
If HiWord(&UWPARAM) = 120
If Val(GetText $(spin)) < 100
SetText spin, Str$(Val(GetText $(spin)) + 1)' hoch
EndIf
Más
If Val(GetText $(spin)) > 0
SetText spin, Str$(Val(GetText $(spin)) - 1)' runter
EndIf
EndIf
CaseOf $010' wm_close
ende = 1
EndSelect
EndWhile
End
Nun va beides.
Einziges Manko :
Das Mausrad va auch en el Ventana principal, also auch außerhalb
des Editfeldes vom SpinEdit.
Algo como müßte una continuación con SubClassing abfangen.
Aber tal vez genügt dir el sí ya. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 10.03.2018 ▲ |
|
| |
|
|
H.Brill | Como lo me no Ruhe ließ, ahora con
SubClassing :
Declarar Handle spin, Largo ende
Ventana 600, 400
spin = Crear("SpinEdit",%HWnd,"0;0;100",10,10,48,24)
SendMessage(spin, $00CF, 1, 0)
Mensajes del usuario $20A, $010
ende = 0
SubClassProc
If SubClassMessage(spin, $20A)
If HiWord(&sWParam) = 120
If Val(GetText $(spin)) < 100
SetText spin, Str$(Val(GetText $(spin)) + 1)' hoch
EndIf
Más
If Val(GetText $(spin)) > 0
SetText spin, Str$(Val(GetText $(spin)) - 1)' runter
EndIf
EndIf
Conjunto("WinProc", 0)
EndIf
ENDPROC
SubClass spin, 1
Sinestar encargado ende
WaitInput
/*
Sonstige Abfragen
*/
Case %UMessage = $10 : ende = 1
EndWhile
SubClass spin, 0
End
Como lo scheint, erreicht el MouseWheel - Nachricht no
sólo la ventana principal, pero auch el otro Controls.
Wenn uno mehrere SpinEdits ha, es esta Método
mejor. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 10.03.2018 ▲ |
|
| |
|
(906)
Deutsch
English
Français
Español
Italia