XProfan

Español

E.T.

Yo such después de el Message para una editierbare ChoiceBox )3) , en en dieser sólo Numerische Eingaben zuzulassen. Hab ahora ya alles en el Kopf gestellt, kanns pero no mehr encontrar. Mir es aber así, como hätte Yo el ya veces irgendwo gehabt...

Wenn alguien esta Message en el Schubkasten ha, entonces Por favor, Yo bastante lieb en Preisgabe.

[offtopic]Das wäre auch veces ne Concepto: Un Messages-Sammlung, porque irgendwie es überall sólo el Hälfte, aber nie el, qué sucht... [/offtopic]

Editar: Solución:
Michael Dell

Ein kleines Ejemplo:

Kompilieren Marca Separación

Def sEditNum(1) Externo("USER32","SetWindowLongA",&(1),-16,(Externo("USER32","GetWindowLongA",&(1),-16) | $2000))
Def gWindow(1)  Externo("USER32.DLL","GetWindow",&(1),5)   &GW_CHILD = 5
Declarar GL_ChB01&,GL_ChBoxChild01&
Cls
GL_ChB01&        = Control("ComboBox","",$5401024E,20,20,360,240,%HWnd,$9100,%HInstance)  Editierbare ChoiceBox
GL_ChBoxChild01& = gWindow(GL_ChB01&)           Child-Editar-Handle el ChoiceBox holen!
sEditNum(GL_ChBoxChild01&)   Child-Editar en Nur-Pagar-Eingabe conjunto.

Mientras que 1

    WaitInput

EndWhile

End

ES_NUMBER

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

08.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Message oder Style?

Mir hilft meist Konstantinopel [...]

08.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Jagolski

Von Thomas Hölzer y Andreas Miethe.

Kompilieren Marca Separación

 $H C:WINDOWS.PH
 $H C:MESSAGES.PH
 $P+
Conjunto("ErrorLevel",0)
Def SetEditNumeric(1) ~SetWindowLong(&(1),~GWL_STYLE, ~GetWindowLong(&(1),~GWL_STYLE) | $2002)
Struct ComboBoxInfo = cbSize&,rcItem#(16),rcButton#(16),stateButton&,hwndCombo&,hwndItem&,hwndList&
Declarar appexit%
Declarar ChoiceBox1&
Declarar ComboBoxInfo#
Declarar Edithandle&

Proc EditComboBox

    Parámetros Handle&
    Dim ComboBoxInfo#,ComboBoxInfo
    ComboBoxInfo#.cbSize& = SizeOf(ComboBoxInfo#)
    ~GetComboBoxInfo(Handle&,ComboBoxInfo#)
    var ComboBoxEdit& = ComboBoxInfo#.hwndItem&
    Disponer ComboBoxInfo#
    Volver ComboBoxEdit&

ENDPROC

Conjunto("TrueColor",1)
Ventana de Estilo $003F
Título de la ventana "Test"
Ventana %maxX + 5,114 - 498,415
Cls ~GetSysColor(15)
ChoiceBox1&=Crear("ChoiceBox",%hwnd,3,64,46,145,120)
Edithandle& = EditComboBox(ChoiceBox1&)
SetEditNumeric(Edithandle&)
SetWindowPos %hwnd = 207,114 - 498,415;0

Sinestar encargado appexit%

    WaitInput

    If %key = 2

        Let appexit%=1

    ElseIf GetFocus(ChoiceBox1&)

    ElseIf %key = 4

        Fenstergröße

    ElseIf %key = 5

        Ayuda

    EndIf

EndWhile

Saludo
Detlef

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

08.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Dell

Ein kleines Ejemplo:

Kompilieren Marca Separación

Def sEditNum(1) Externo("USER32","SetWindowLongA",&(1),-16,(Externo("USER32","GetWindowLongA",&(1),-16) | $2000))
Def gWindow(1)  Externo("USER32.DLL","GetWindow",&(1),5)   &GW_CHILD = 5
Declarar GL_ChB01&,GL_ChBoxChild01&
Cls
GL_ChB01&        = Control("ComboBox","",$5401024E,20,20,360,240,%HWnd,$9100,%HInstance)  Editierbare ChoiceBox
GL_ChBoxChild01& = gWindow(GL_ChB01&)           Child-Editar-Handle el ChoiceBox holen!
sEditNum(GL_ChBoxChild01&)   Child-Editar en Nur-Pagar-Eingabe conjunto.

Mientras que 1

    WaitInput

EndWhile

End