mit Buttons möchte ich weitere Fenster über diesen öffnen !
Problem ist wenn das 1. Fenster geöffnet ist und ich öffne per Buttun und Includefile ein weiteres Fenster wird das 1. Fenster geschlossen ?
Code: Alles auswählen
Enumeration
#verein_fenster
#verein_status
#verein_text
#verein_grund
#verein_ende
EndEnumeration
If OpenWindow(#verein_fenster,15,15,1400,800,"Vereins - Verwaltung ")
StringGadget(#verein_text,300,200,200,25,"")
ButtonGadget(#verein_grund,30,50,40,40,"G")
EndIf
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Repaint
EndIf
If Event = #PB_Event_Menu
Select EventMenu()
EndSelect
EndIf
If Event = #PB_Event_Gadget
Select EventGadget()
Case #verein_text
If EventType() = #PB_EventType_Focus
ElseIf EventType() = #PB_EventType_Change
ElseIf EventType() = #PB_EventType_LostFocus
EndIf
Case #verein_grund ; Öffnen 2. Fenster
IncludeFile "/home/ap-katrin/Entwicklung/SparVer/GrundDat.pb"
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
End