Window in Window

[kaitec]

Hallo,
mit dem Befehl OpenWindow("Parameter") öffene ich ein Fenster, aber wenn ich in dem Fenster ein neues Fenster öffne und dies dann schliesse schliessen sich beide Fensters!

Wer kann mir helfen?

Wäre über Befehle oder kurz Soures sehr dankbar

MfG

[Konne]

select waitwinbdowevent()
case #pb_event_closewindow
closewindow(windowid(EventWindowID() ))
endselect

sollte so gehen is aber nicht getestet

[kaitec]

Der Code geht nicht! auserdem gib es damit Probleme mit der Repeat schleife (<-Main Loop)!

Bitte trotzdem nochmal um hilfe

MfG

[roherter]

Kannste mal dein code posten?

[kaitec]

ich hab noch kein code! ich wollte das mal irgendwo einbauen! und jetzt wollte ich das eigendlich für einen dektop von meinem kleinen Betriebssystem benutzen! Ich programmiere noch nicht lange in PB, deswegen brauche ich das erst mal dringend mit dem OpenWindow befehl! Ich kann ja zwei Fensters öffnen! Aber wenn ich eins Schliesse schliesst sich das andere auch!

MfG

[edel]

Konnes Code war schon richtig

Ganz simpel so :

Code: Alles auswählen

Global count

Procedure OpenWindowEx(id,x,y,cx,cy,flags,text.s)
  count + 1
  OpenWindow(id,x,y,cx,cy,flags,text) 
EndProcedure


OpenWindowEx(#PB_Any,Random(800),Random(600),400,400,#WS_SYSMENU,"")
OpenWindowEx(#PB_Any,Random(800),Random(600),400,400,#WS_SYSMENU,"")
OpenWindowEx(#PB_Any,Random(800),Random(600),400,400,#WS_SYSMENU,"")

;::::::::::::::::::::::::::::::::::::::::::::::::::::::
  
Repeat
  event = WaitWindowEvent()  
  
  Select event
    Case #WM_CLOSE 
      count - 1
      CloseWindow(EventWindowID())
      If count <= 0
        Break
      EndIf 
  EndSelect
  
ForEver 

End

[Konne]

Ich hab noch ein "b" zuviel drin! DA kann man aber auch selber draufkommen:)