StringGadget mit #PB_String_Numeric lässt Text zu

[ts-soft]

Shift + Einfügen geht tatsächlich, danach ist das Stringgadget aber unbenutzbar

[Andesdaf]

Shift + Einfügen geht tatsächlich, danach ist das Stringgadget aber unbenutzbar

Genau. Per Markierung und ENTF dann aber wieder.

[ts-soft]

Code: Alles auswählen

EnableExplicit

Global oldStringGadgetCB

Procedure StringGadgetCB(hWnd, uMsg, wParam, lParam)
  Select uMsg
    Case #WM_CHAR
      Select wParam
        Case 47 To 57 ; erlaubte Zeichen 0 - 9
        Default
          ProcedureReturn #False
      EndSelect
    Case #WM_CONTEXTMENU ; Kontextmenü unterdrücken
      ProcedureReturn #False
  EndSelect
  If GetAsyncKeyState_(#VK_SHIFT)
    ProcedureReturn #False
  EndIf
  ProcedureReturn CallWindowProc_(oldStringGadgetCB, hWnd, uMsg, wParam, lParam)
EndProcedure

OpenWindow(0, #PB_Ignore, #PB_Ignore, 200, 40, "test", #PB_Window_SystemMenu)
StringGadget(0, 10, 10, 180, 20, "")
SetActiveGadget(0)

oldStringGadgetCB = SetWindowLongPtr_(GadgetID(0), #GWL_WNDPROC, @StringGadgetCB())

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

[Andesdaf]

jetzt ist es wirklich numeric