Im Thread Fenster schließen

[RSBasic]

Hallo ihr lieben PB-User.
Ich habe ein kleines Problem, es ist folgendes dass ich ein Fenster habe mit einer Prozedure, die mit einem Thread gestartet wurde.
Aber ich kann im Thread leider nicht befehlen, dass das Fenster beenden soll.
Könnt ihr mir helfen? Danke

Code: Alles auswählen

Procedure Vorgang(Parameter)
  Delay(1000)
  CloseWindow(0)
EndProcedure

;-Window 0
If OpenWindow(0,0,0,500,200,"IPS",#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    
  EndIf
  CreateThread(@Vorgang(), 154)
Repeat
EventID=WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
  Quit=1
EndIf
Until Quit=1
EndIf

[nco2k]

Code: Alles auswählen

PostMessage_(WindowID(0), #WM_CLOSE, 0, 0)

c ya,
nco2k

[RSBasic]

@nco2k
Vielen Dank

[bobobo]

oder so

Code: Alles auswählen

Global Quit
Procedure Vorgang(Parameter) 
  Delay(1000) 
  quit=1
  ;CloseWindow(0) 
EndProcedure 

;-Window 0 
If OpenWindow(0,0,0,500,200,"IPS",#PB_Window_ScreenCentered) 
  
  If CreateGadgetList(WindowID(0)) 
    
  EndIf 
  CreateThread(@Vorgang(), 154) 
Repeat 

EventID=WaitWindowEvent() 
If EventID = #PB_Event_CloseWindow 
  Quit=1 
EndIf 
Until Quit=1 
EndIf

[nco2k]

@bo3
bei WaitWindowEvent() macht der code keinen sinn, da das quit=1 im thread kein event erzeugt und WaitWindowEvent() eben auf einen event wartet, bevor die schleife fortgesetzt wird. bei WindowEvent() würde deine methode zwar gehen, wäre aber immer noch nicht so das wahre.

c ya,
nco2k

[NicTheQuick]

Dann eben WaitWindowEvent(20) oder eine andere Zahl. Beim
Fensterschließen kommt es auf die paar Millisekunden dann ja auch nicht
mehr an.

[ts-soft]

Dann eben WaitWindowEvent(20) oder eine andere Zahl. Beim
Fensterschließen kommt es auf die paar Millisekunden dann ja auch nicht
mehr an.

Erhöht auf geringfügig die CPU last, da kann man sich den Thread auch sparen. SendMessage ist IMHO die sauberste Lösung, aber WINONLY

[NicTheQuick]

Lass das folgende Programm mal eine Zeit lang laufen. Vielleicht eine Stunde
oder sowas. Und du wirst sehen, dass keinerlei CPU-Zeit kostet.

Code: Alles auswählen

OpenWindow(0, 0, 0, 200, 200, "Test", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
Repeat : Until WaitWindowEvent(1) = #PB_Event_CloseWindow

[Kaeru Gaman]

yo, da hast du aber ja auch nix weiteres drin.

bei ner richtigen event-schleife muss er ne menge Ifs und Selects durchackern,
auch wenn er die branches nicht ausführen muss, die prüfungen muss er durchführen...

also um das realistisch zu testen, musst du mindestens noch ein halbes dutzend Ifs einbaun.

[bobobo]

quark . .ein if reicht

Code: Alles auswählen

Global quitask
Procedure externes()
  Delay (1000)
  quitask=1
EndProcedure

OpenWindow(0, 0, 0, 200, 200, "Test", #PB_Window_ScreenCentered | #PB_Window_SystemMenu) 
CreateThread(@externes(),0)
Repeat 
  event=WaitWindowEvent(1)
  If quitask=1
    Debug "AB IN DIE KNEIPE!!"
    quit=1
  Else
    ;haufenweise andere Abfragen
    Debug "DU MUSST SCHACKERN!!"
  EndIf
  
Until quit=1 Or event = #PB_Event_CloseWindow