Text im Gadget auf Knopfdruck ändern

[S3b]

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration


Enumeration
  #Text_0
  #String_0
  #Button_0
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "Fenster 1",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      TextGadget(#Text_0, 10, 10, 160, 220, "Wenn man auf den Button drückt, soll sich der Text hier ändern")
      ButtonGadget(#Button_0, 270, 130, 50, 40, "klick")
      
    EndIf
  EndIf
EndProcedure

Open_window_0()

Repeat
t = WaitWindowEvent()

 If EventGadget() = #Button_0 
; Nuja hier..
; soll das 
; denn hin..

 EndIf

Until t = #PB_Event_CloseWindow

Wenn man auf den Button klickt, soll sich #Text_0 ändern..
Wie geht das?

[Kaeru Gaman]

Code: Alles auswählen

 If EventGadget() = #Button_0
    SetGadgetText(#Text_0, "Text geändert")
 EndIf

pls RTFM