ts-soft hat geschrieben:Code: Alles auswählen
#FensterHaupt = 0
#FensterUnter = 1
If OpenWindow(#FensterHaupt, 0,0,200,200,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"HauptFenster") = #False : End : EndIf
If OpenWindow(#FensterUnter, 0,0,100,100,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"UnterFenster", WindowID(#fensterhaupt)) = #False : End : EndIf
; bla bla
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
If EventWindowID() = #FensterHaupt
Quit = 1
ElseIf EventWindowID() = #FensterUnter
CloseWindow(#FensterUnter)
EndIf
EndSelect
Until Quit = 1
So schlimm ist das nicht

CPC 464?
Hallo Thomas,
ich hatte mit dem Haupt/Unterfenster noch ein Problem. Zeilenbewusst wie ich bin, wollt ich die Unterfensterfunktion in eine Prozedur/gosub-Routine ausgliedern und vorab #FensterHaupt ermitteln lassen und dann mit übergeben, da ich die Routine von mehreren Fenstern aus aufrufen lassen wollte. Und das funktionierte allerdings dann nur vom ersten Hauptfenster aus, beim Aufruf aus einem anderen Fenster heraus.
EDIT: Beim nachträglichen Lesen des Beitrags könnte es sein, dass ich #FensterHaupt nicht mit an die Prozedur übergeben habe. Allerdings hat es über ein Gosub-Routine auch nicht funktioniert. Als Fehlermeldung kam dann immer, das in der Zeile, wo das Fenster als Unterfenster öffnen nicht steht, etwas nicht intialisiert gewesen sei.
Hab es nun mit zwei Gosub-Routinen gelöst, ist ja nicht viel Zeilenaufwand.
und auf die Frage, die ich überlesen hatte ;o)
Nicht 464, sondern 664 ... und dann noch CPC6128, wobei ich dort den doppelten Speicher nie richtig auszunutzen wusste ...