XProfan

Italia

E.T.

Ich such nach der Message per eine editierbare ChoiceBox )3) , um in dieser nur Numerische Eingaben zuzulassen. Hab jetzt schon alles auf den Kopf gestellt, kanns aber nicht mehr finden. Mir ist aber so, als hätte ich die schon mal irgendwo gehabt...

Wenn jemand diese Message im Schubkasten hat, dann bitte ich ganz lieb um Preisgabe.

[offtopic]Das wäre auch mal ne Idee: Eine Messages-Sammlung, denn irgendwie steht überall nur die Metà, aber nie das, was man sucht... [/offtopic]

Edit: Lösung:
Michael Dell

Ein kleines Beispiel:

Kompilieren Markieren Separieren

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)  Editierbare ChoiceBox
GL_ChBoxChild01& = gWindow(GL_ChB01&)           Child-Edit-Handle der ChoiceBox holen!
sEditNum(GL_ChBoxChild01&)   Child-Edit auf Nur-Zahlen-Eingabe setzen.

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

08.12.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Message oder Style?

Mir hilft meist Konstantinopel [...]

08.12.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Detlef
Jagolski

Von Thomas Hölzer und Andreas Miethe.

Kompilieren Markieren Separieren

 $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)
WindowStyle $003F
WindowTitle "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

        Aiuto

    EndIf

EndWhile

Saluto
Detlef

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

08.12.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Dell

Ein kleines Beispiel:

Kompilieren Markieren Separieren

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)  Editierbare ChoiceBox
GL_ChBoxChild01& = gWindow(GL_ChB01&)           Child-Edit-Handle der ChoiceBox holen!
sEditNum(GL_ChBoxChild01&)   Child-Edit auf Nur-Zahlen-Eingabe setzen.

While 1

    WaitInput

EndWhile

End