pb focus messagerequester pas au premier plan

david · **Inscription:** Jeu 03/Fév/2005 21:10 **Messages:** 127

j'ai fait un bout de programme avec PB4.20
il ouvre / ferme / met en avant différentes fenêtre
en utilisant notamment:

Code:

 If OpenWindow(2, 0, 0, 4000, 2000, "Veuillez patienter, le paramétrage est en cours...",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
  SetWindowPos_(WindowID(2), -1, 0, 0, 0, 0, #SWP_NOSIZE | #SWP_NOMOVE) ;fenetre premier plan********
 

une fois mon programme achevé, je veux dire que tout est ok
j'utilise

Code:

MessageRequester(titre","message")

mais ma box n'apparait pas au premier plan??!!
j'ai bien retourné la doc... mais il n'y a pas trop de paramètres pour Messagerequester
j'ai trouvé des astuces pour reprendre le focus mais rien s'appliquant sur un Messagerequester

Vais-je devoir remplacer Messagerequester par une nouvelle fenetre avec un bouton valider?? ou existe-t-il un moyen de rappeler a Messagerequester qu'il est censé avoir le focus??

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 12948

Code:

SetWindowPos_(WindowID(2), -1, 0, 0, 0, 0, #SWP_NOSIZE | #SWP_NOMOVE) ;fenetre premier plan********

pourquoi ne pas utiliser

Code:

StickyWindow(#Fenetre, Etat)

Citation:

Etat =
1: la fenêtre sera toujours au premier plan.
0: le fenêtre ne restera pas au premier plan si elle n'est pas active.

ceci peut donc se changer juste avant l'apparition du requester() :roll:

Ar-S · **Inscription:** Dim 09/Oct/2005 16:51 **Messages:** 5214

si y'a possibilité d'éviter les API c'est pas plus mal comme le souligne Dobro.

Pourquoi ne pas te faire une tite procédure de messagerequester modifé ?

Code:

Procedure MessRequesterVisible(Fenetre, titre.s, message.s, flag)
  StickyWindow(Fenetre, 0) ; impose la fenêtre au second plan
  MessageRequester(titre,message,flag)
  StickyWindow(Fenetre, 1) ; repasse la fenêtre au 1er plan
EndProcedure

Mise en oeuvre :

Code:

Enumeration
  #Window_0
  #BT
EndEnumeration

Procedure MessRequesterVisible(Fenetre, titre.s, message.s, flag)
  StickyWindow(Fenetre, 0) ; impose la fenêtre au second plan
  MessageRequester(titre,message,flag)
  StickyWindow(Fenetre, 1) ; repasse la fenêtre au 1er plan
EndProcedure

If OpenWindow(#Window_0, 450, 200, 429, 106, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
  StickyWindow(Fenetre, 1)
  ButtonGadget(#BT, 125, 25, 155, 50, "Cliquer ici")
  
EndIf


Repeat
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #BT
          
          MessRequesterVisible(#Window_0, "test", "on me voit", #MB_OK)
          
      EndSelect
      
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #Window_0
          CloseWindow(#Window_0)
          Break
      EndSelect
  EndSelect
ForEver

PureBasic

pb focus messagerequester pas au premier plan

Qui est en ligne