Discussion :

[LeonCosnyd]

Bonjour,

Je dois créer une fenêtre qui devra être au dessus de toutes mes autres fenêtres de l'application Windev en cours, mais qui ne doit pas être au dessus des autres fenêtres des autres applications (word par exemple).

J'ai commencé par faire un OuvreSoeur pour ouvrir cette fenêtre sans bloquer mes autres fenetres.
Dans le code d'initialisation de celle-ci je fais un FenEtat(DessusTout)

Avec ceci la fenêtre s'ouvre bien au dessus de mes autres fenêtres, mais le problème est qu'elle reste également au dessus des autres applications.

Existe t-il une solution pour que cette fenêtre soit "en dessous" des autres applications, et donc qu'elle soit au-dessus des fenêtres de l'application Windev en cours ?

Merci par avance.

[frenchsting]

Hello Léon,

pour avoir pas mal galéré (et abandonné, faute de solution pérenne dans mon cas), il faut regarder du côté des API Windows : SetWindowPos().

[philouZ]

Bonjour,

As-tu essayé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OuvreSoeur("FEN_Fenêtre" + Dessus)

[LeonCosnyd]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OuvreSoeur("FEN_Fenêtre" + Dessus)

Cela permet simplement d'ouvrir la fenêtre au premier plan lors de son lancement. Dès le premier clic sur une autre fenêtre, la fenêtre soeur que l'on vient d'ouvrir passe en dessous.

Pour le moment je n'ai rien trouvé de "simple" pour faire ça... L'application dans laquelle je dois intégrer cette nouvelle fenêtre utilise beaucoup de fenêtre interne. J'ai tenté de surveiller la fenêtre qui a le focus avec la fonction SysFenHandle() mais chaque fenêtre interne possède son propre identifiant. Les évènements Prise de focus et Perte de focus des fenêtres vont dans tout les sens à chaque fois qu'un clic est réalisé sur un champ fenêtre interne...

[frenchsting]

J'ai fait une petite bidouille :
- Clic sur bouton pour l'ouverture de la fenêtre : OuvreSoeur("FEN_Soeur"+ Dessus)
- Code Survol souris (WM_MouseMouve) : FenEtat(ActifDevant)

Est-ce que cela peut te suffire ?

[LeonCosnyd]

Code Survol souris (WM_MouseMouve) : FenEtat(ActifDevant)

De quel élément ? Tu passerais par un évènement sur *.* ?

[frenchsting]

Dans ta fenêtre fille, partie code, tu as en bas, dans la bande grise, des dessins de souris avec flèches. Tu cliques sur les "..." et dans la fenêtre qui s'ouvre, tu coches la case "survol souris..."

[droliprane]

Salut LeonCosnyd,

j'ai le cas en ce moment avec mon panel de favoris (pour lequel d'ailleurs j'ai relancé un de tes sujets vieux de 3 ans ^^ hasard !)

Je gère ça via un champs fenêtre interne, auquel je donne une altitude élevée, et elle reste devant les autres.

Bon dev'

[LeonCosnyd]

Bonjour,

Après quelques essais je n'arrive pas à comprendre pourquoi tu (FrenchSting) penses mettre l'évènement de survol souris sur la fenêtre Popup (ouverte en Soeur et non en Fille). Car le problème est que lorsque je clic sur la fenêtre "mère" c'est elle qui prend le focus et qui passe par dessus la fenetre popup. Le survol souris est donc pris par la fenêtre mère et n'est plus géré par la fenetre Popup...

En revanche ce qui marche est de mettre l'évènement sur "*.*" qui correspond à "toutes les fenêtres windev". Voici un code qui, je pense, marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
// FENETRE MERE
// Déclaration
EXTERNE "WinConst.WL"
 
// Initialisation
Evénement(pl_PopupDevant,"*.*",WM_MOUSEMOVE)
Evénement(pl_PopupDevant,"*.*",WM_LBUTTONDOWN)
OuvreSoeur("fenPopup"+Dessus)
 
 
// Fonction pl_PopupDevant
PROCEDURE pl_PopupDevant()
 
SI FenEtat(fenPopup) <> Inexistant ALORS
	FenEtat(fenPopup,Dessus)
FIN

Sur un projet vide, ne contenant que deux fenêtres sans champs (et non en production) cela marche.

Pour ma part l'application dans laquelle je travaille contient une fenêtre principale qui utilise beaucoup de fenêtre interne pour accéder aux différentes parties du logiciel (on n'ouvre pas de nouvelle fenêtre fille). J'ai donc opté pour la solution de Droliprane. J'ai mis un champ fenêtre interne avec l'altitude la plus élevé. Cela m'évite de gérer les ouvertures/fermetures des fenêtres soeurs, et de devoir masquer son apparition dans la barre des taches windows.

[frenchsting]

Hello Léon,

j'ai encore gaffé en parlant de fille et pas de soeur. J'ai soumis ce code "à tout hasard". J'avais bien mis "est-ce que cela peut suffire ?". En tout cas, la solution de droliprane est vraiment top.

EDIT :
J'ai refait un test en "améliorant" l'événement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Evénement(proc_LanceFen,"*.*",WM_MOUSEMOVE)

et dans le code de la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
SI FenEtat(FEN_Menu) = Inexistant ALORS
	OuvreSoeur("FEN_Menu"+ Dessus)
SINON
	FenEtat(FEN_Menu, ActifDevant)
FIN

[droliprane]

Oui c'est satisfaisant dans 99% des cas, pour peu qu'en arrière plan de ta fenêtre du premier plan tu ne fasse pas scroller une table par exemple, auquel cas tu pourrais voir l'ascenseur de ta table en arrière plan venir se confondre/scintiller dans ta fenêtre du premier plan. Je dis ça, c'est juste pour te prévenir, si comme moi tu es perfectionniste, tu voudras aussi parer à cette éventualité mais à force de trouver des parades pour éviter des comportements, ça fait écrire du code pas toujours compréhensible, voire parfois usine à gaz pour un effet de bord qui arrive rarement... peut-être que dans les versions supérieures c'est stabilisé...

[frenchsting]

Il y a des clignotements avec 2 fenêtres qui se chevauchent "largement". Sur une "petite" fenêtre genre menu flottant, pas sûr que ça se voie.

Mais tu as raison, il faut essayer d'être perfectionniste. Mais à un moment, quand c'est trop usine à gaz, j'ai tendance à faire au plus simple. Inutile de pondre du code impossible à maintenir. Il y a une signature d'utilisateur ici qui dit "Ya mieux mais ça fonctionne".