Stringgadget ohne blinkenden Cursor

[CNESM]

Code: Alles auswählen

OpenWindow(0,0,0,300,100,"Stringgadet without blinking cursor",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) 

StringGadget(0,20,20,260,20,"...") 

Repeat 
  Event=WaitWindowEvent() 
  If Event=#PB_Event_Gadget 
    If EventGadget()=0 
      HideCaret_(GadgetID(0)) 
    EndIf 
  EndIf 
Until Event=#PB_Event_CloseWindow

[ts-soft]

Hab sowas zwar nie gebraucht, aber wenn, dann würde ich doch den Eventtype unterscheiden:

Code: Alles auswählen

OpenWindow(0,0,0,300,100,"Stringgadet without blinking cursor",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

StringGadget(0,20,20,260,20,"...")

Repeat
  Event=WaitWindowEvent()
  If Event=#PB_Event_Gadget
    If EventGadget()=0
      If EventType() = #PB_EventType_Focus
        HideCaret_(GadgetID(0))
      EndIf
    EndIf
  EndIf
Until Event=#PB_Event_CloseWindow

[CNESM]

Hast recht

[Andesdaf]

schön, werde ich vielleicht nie brauchen, aber trotzdem danke dafür.