Seite 1 von 1
Window in Window
Verfasst: 04.01.2006 17:49
von 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
Verfasst: 04.01.2006 18:06
von Konne
select waitwinbdowevent()
case #pb_event_closewindow
closewindow(windowid(EventWindowID() ))
endselect
sollte so gehen is aber nicht getestet
Window in Window
Verfasst: 04.01.2006 21:39
von kaitec
Der Code geht nicht! auserdem gib es damit Probleme mit der Repeat schleife (<-Main Loop)!
Bitte trotzdem nochmal um hilfe
MfG
Verfasst: 04.01.2006 21:46
von roherter
Kannste mal dein code posten?
Window in Window
Verfasst: 04.01.2006 22:05
von 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
Verfasst: 04.01.2006 22:15
von 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
Verfasst: 04.01.2006 22:19
von Konne
Ich hab noch ein "b" zuviel drin! DA kann man aber auch selber draufkommen:)