Comment "disabler" une fenetre ?

[bertrand]

ben ouais comment ?


y'a hidewindows() mais ca c'est violent...
usewindow() mais ca empeche pas l'utilisation des autres fenetres...

a moins de disabler tous les button ? ---> c'est pas sexy j'en ai 44 ..

enfin let's see. sinon bonne année qd même !

[Le Soldat Inconnu]

Code : Tout sélectionner

EnableWindow_(WindowID(), State)

je l'ai déjà dis il y a une semaine sur un autre sujet posant exactement la même question
une petite recherche aurait été préférable

[bertrand]

autant pour moi. j'ai pas vu. serieux.

merci en tt cas.

b.

[bertrand]

bon ben me revoila... ca marche pas.
c'est vrai que l'instruction n'est pas dans le help file why ?

comment je fais là ?

c'est surement pas grand chose non ?

merci

[Le Soldat Inconnu]

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu
; Version de PB : 3.9
; 
; Explication du programme :
; Pour faire des programmes de test rapidement, il ne reste qu'a rajouter les gadgets et la gestion des évènements.


Procedure Fenetre()
  EnableWindow_(WindowID(0), 0) ; On désactive
  
  If OpenWindow(1, 0, 0, 100, 100, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Test2") = 0 Or CreateGadgetList(WindowID()) = 0
    End
  EndIf
  
  Repeat
    Event = WaitWindowEvent()
    
  Until Event = #PB_EventCloseWindow
  
  CloseWindow(1)
  UseWindow(0)
  
  EnableWindow_(WindowID(0), 1) ; On active
EndProcedure



; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, 300, 300, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Test1") = 0 Or CreateGadgetList(WindowID()) = 0
  End
EndIf

ButtonGadget(0, 10, 10, 100, 30, "ouvrir fenêtre")

Repeat
  Event = WaitWindowEvent()

  If Event = #PB_EventGadget
    Select EventGadgetID() ; Gadgets
      Case 0
        Fenetre()
    EndSelect
  EndIf
  
Until Event = #PB_EventCloseWindow

End

EnableWindow est une API, voir rubrique liens utiles dans la section débutant pour obtenir les pages permettant d'avoir une description de la fonctions (les API ne marche pas avec la démo)

[bertrand]

ok...
j'ai la demo: j'achete PB.

merci encore.
b.