Discussion :

[frenchsting]

Bonjour à tous,


Je sèche pour redonner la main à une fenêtre windev :

Code :

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

1
2
3
4
5
6
7
8
9
10
RetourFonction est un booléen // Type C :BOOL
 
LanceAppli("c:\windows\notepad.exe",exeActif,exeBloquant)
Multitâche(50)
 
RetourFonction = FenEtat(MaFenêtre, DessusTout)
ListeAjoute(Liste1, NumériqueVersChaîne(RetourFonction))
Multitâche(10)
FenEtat(MaFenêtre, Normal)
Multitâche(10)

Ce que he veux faire : j'ai une appli windev qui lance un exe extérieur. Quand l'appli est fermée, je veux que la fenêtre ait le focus pour pouvoir poursuivre une saisie.

Comment reproduire :
1. Une fenêtre + un bouton
2. Lancer et cliquer sur le bouton : le bloc notes s'ouvre.
3. Afficher une fenêtre (non maximisée de façon à voir la croix de fermeture du bloc notes) au dessus du bloc notes qui est ouvert.
4. Fermer le bloc notes.
5. La fenêtre est bien repassée au dessus mais n'a pas le focus.

Notes : j'ai essayé
- avec les API ShowWindow/ SetForegroundWindow / SetWindowsPos sans succès. Au mieux,j'ai eu le résultat que me donne FenEtat.
- En mettant le focus sur un champ de la fenêtre, repriseSaisie,...

[EDIT] : je viens de tester en simulant un clic de souris sur la fenêtre avec EnvoieTouche() mais cela ne fonctionne pas.

Si vous avez des idées...

Merci d'avance,

Claude

[RogerCageot]

Salut,

J'ai simplement essayé en testant le résultat de la fonction LanceAppli et le focus se fait bien dans mon champ :

Code :

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

1
2
3
4
5
 
Res = LanceAppli("c:\windows\notepad.exe",exeActif,exeBloquant)
SI Res = 1 ALORS
    DonneFocus(Saisie1)
FIN

Est ce que c'est le résultat attendu ?

[frenchsting]

Merci pour ta réponse.

Je précise que j'ai simplifié mon projet afin de pouvoir reproduire le comportement plus facilement.

Ton code ne fonctionne pas. Je pense que tu ne fais pas l'étape 3. Dans mon cas, je restaure un navigateur.

Ce qui est dingue, c'est qu'après la fin du traitement, mon navigateur reste bien derrière la fenêtre qui est donc top most...

[kool-Paladin]

bonjour,

c'est normale
car quand tu clic sur le bouton tu ouvre note pad
ensuite tu fait venir une fenetre
donc ta fenetre windev est 3 eme dans la liste des fenetres

si tu ferme le note pad elle passe deuxieme
le fait de la passer devant ne veut pas dire qu'elle est active (j'ai deja eu ca sur des appli mis en systray qui avait bcp de mal a reprendre le focus)
du coup hyper simple : comme ton appli est pas au premier plan il suffit de l'iconser et de la restaure = elle sera au premier plan et active
et je l'envoie dans un champs de saisie comme ca des que tu touche au clavier tu es dans le champs de saisie

Code :

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

1
2
3
4
5
 
LanceAppli("c:\windows\notepad.exe",exeActif,exeBloquant)
Iconise(MaFenêtre)
Restaure(MaFenêtre)
RepriseSaisie(Saisie1)

[kool-Paladin]

et si tu veux eviter le iconise et restaure si ta fenetre est la suivante (cela evite la disparition et apparition)

Code :

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

1
2
3
4
5
6
7
 
LanceAppli("c:\windows\notepad.exe",exeActif,exeBloquant)
SI API("user32.dll", "GetForegroundWindow") <> Handle() ALORS
	Iconise(MaFenêtre)
	Restaure(MaFenêtre)
FIN
RepriseSaisie(Saisie1)

c'est le code que j'utilise dans mes fenetres systray car elles peuvent etre iconisées ou non donc pour eviter un scintillement
j'avais fait ca en windev 20 = ca doit marche en 22

[frenchsting]

Hello kool-Paladin,

Merci pour tes réponses.
Ca marche nickel sur mon projet test, mais pas sur mon projet réel. J'ai créé un patch chez l'utilisateur mais tout est resté réduit.

Pour info, mon exemple de test est simplifié à l'extrême car la fenêtre de départ est très complexe (10 Mo). Le mode opératoire est le suivant :

Clic sur un bouton. Appels de procédure diverses. Ouverture d'une fenêtre qui lance un IE pour récupérer des infos. A la fermeture de IE récupération et transfert des valeurs dans la fenêtre de départ puis fermeture de la fenêtre, puis lancement de procédures dont une qui ouvre la fenêtre qui pose souci.