XProfan

English

E.T.

I such to the Message for a editierbare ChoiceBox )3) , circa in this only Numerische Inputs to admit. Have now already everything on the head set, kanns but not any more find. i'm but so, as had I The already time somewhere had...

If someone these Message in the Schubkasten has, then Please I integrally endearing circa Preisgabe.

[offtopic]the would too time ne idea: an Messages-collection, because somehow standing everywhere only The Half, but never the, what seek... [/offtopic]

Edit: Solution:
Michael Dell

A small example:

Compile Mark Separation

Def sEditNum(1) External("USER32","SetWindowLongA",&(1),-16,(External("USER32","GetWindowLongA",&(1),-16) | $2000))
Def gWindow(1)  External("USER32.DLL","GetWindow",&(1),5)   &GW_CHILD = 5
Declare GL_ChB01&,GL_ChBoxChild01&
Cls
GL_ChB01&        = Control("ComboBox","",$5401024E,20,20,360,240,%HWnd,$9100,%HInstance)  Editable ChoiceBox
GL_ChBoxChild01& = gWindow(GL_ChB01&)           Child-Edit-lever the ChoiceBox fetch!
sEditNum(GL_ChBoxChild01&)   Child-Edit on only-numbers-input settle.

While 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...

12/08/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Message or Style?

me helps mostly Konstantinopel [...]

12/08/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Jagolski

From Thomas Hölzer and Andreas Miethe.

Compile Mark Separation

 $H C:WINDOWS.PH
 $H C:MESSAGES.PH
 $P+
Set("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&
Declare appexit%
Declare ChoiceBox1&
Declare ComboBoxInfo#
Declare Edithandle&

Proc EditComboBox

    Parameters Handle&
    Dim ComboBoxInfo#,ComboBoxInfo
    ComboBoxInfo#.cbSize& = SizeOf(ComboBoxInfo#)
    ~GetComboBoxInfo(Handle&,ComboBoxInfo#)
    var ComboBoxEdit& = ComboBoxInfo#.hwndItem&
    Dispose ComboBoxInfo#
    Return ComboBoxEdit&

ENDPROC

Set("TrueColor",1)
Window Style $003F
Window Title "Test"
Window %maxX + 5,114 - 498,415
Cls ~GetSysColor(15)
ChoiceBox1&=Create("ChoiceBox",%hwnd,3,64,46,145,120)
Edithandle& = EditComboBox(ChoiceBox1&)
SetEditNumeric(Edithandle&)
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    WaitInput

    If %key = 2

        Let appexit%=1

    ElseIf GetFocus(ChoiceBox1&)

    ElseIf %key = 4

        Fenstergröße

    ElseIf %key = 5

        Help

    EndIf

EndWhile

Greeting
Detlef

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

12/08/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Dell

A small example:

Compile Mark Separation

Def sEditNum(1) External("USER32","SetWindowLongA",&(1),-16,(External("USER32","GetWindowLongA",&(1),-16) | $2000))
Def gWindow(1)  External("USER32.DLL","GetWindow",&(1),5)   &GW_CHILD = 5
Declare GL_ChB01&,GL_ChBoxChild01&
Cls
GL_ChB01&        = Control("ComboBox","",$5401024E,20,20,360,240,%HWnd,$9100,%HInstance)  Editable ChoiceBox
GL_ChBoxChild01& = gWindow(GL_ChB01&)           Child-Edit-lever the ChoiceBox fetch!
sEditNum(GL_ChBoxChild01&)   Child-Edit on only-numbers-input settle.

While 1

    WaitInput

EndWhile

End