Discussion :

[potili2]

J'ai les fenetres 1-2-3-4-5 d'applications différentes sur mon écran.
je veux, d'un clilc sur Delphi mettre en avant la fenetre 2 et, juste sous elle, la fenetre 3 (en qque sorte, 3 est un fond d'écran pour 2).
La FAQ donne le moyen de faire passer une fenetre en premier plan, et ça fonctionne très bien
Mon idée est de le faire successivement pour la fenetre 3 puis pour la fenetre 2.
ce qui donne ceci

Code delphi :

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
18
19
20
21
22
23
24
25
procedure TForm1Devant;
Var Proc,Nous:Integer;
begin
  Proc:=GetWindowThreadProcessId(GetForeGroundWindow);
  Nous:=GetCurrentThreadID;
  If Proc<>Nous Then
  Begin
    // Nous ne sommes pas l'application en premier plan
    AttachThreadInput(Nous,Proc,True);
    SetForeGroundWindow(Haundle);
    AttachThreadInput(Nous,Proc,False);
    Application.BringToFront;
  End Else
  Begin
    // Nous sommes déjà en premier plan
    SetForeGroundWindow(Haundle);
  End;
end;
     begin
     Haundle := findwindow(nil, 'mafenetre3');
     TForm1Devant;
     sleep(1000);
     Haundle := findwindow(nil,'mafenetre2');
     TForm1Devant;
end.

ça ne fonctionne pas, ni avec une boucle, ni en récrivant deux fonctions distinctes. Si vous avez une idée...
merci.
Jean Pierre

[Fabrice ROUXEL 1]

Comme d'hab, ce n'est pas clair, les fenetres de qui de quoi pour faire quoi...

Voir ces fonctions dans l'aide
EnumWindows()
FindWindow()
GetWindow()
ShowWindow()
+ les autres fonctions de gestion de fenetres.

[potili2]

Bon alors, je précise.
je dois mettre, à la demande, une fenetre excel sous un logiciel affichant des données boursières sur des mini fenetres. je dois voir les données s'afficher (en premier plan, donc, dans ces minifenetres) et en même temps, dans les espaces entre ces mnini fenetres la feuille excel avec les calculs qui s'effectuent en conséquence.
les autres logiciels tournant en tache de fond.
j'ai les handles de tout ce petit monde, ce n'est pas le problème, mon problème est l'affichage.
et l'astuce donnée par la FAQ ne marche qu'une fois... Pourquoi?
Jean Pierre

[Fabrice ROUXEL 1]

Cela ne peut pas fonctionner avec "Haundle := findwindow(nil, 'mafenetre3');"
Il faut conserver SetForeGroundWindow(Handle);

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
18
19
20
21
22
23
procedure TForm1Devant;
Var Proc,Nous:Integer;
begin
Proc:=GetWindowThreadProcessId(GetForeGroundWindow);
Nous:=GetCurrentThreadID;
If Proc<>Nous Then
Begin
// Nous ne sommes pas l'application en premier plan
AttachThreadInput(Nous,Proc,True);
SetForeGroundWindow(Handle);
AttachThreadInput(Nous,Proc,False);
Application.BringToFront;
End Else
Begin
// Nous sommes déjà en premier plan
SetForeGroundWindow(Handle);
End;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Devant;
end;

propriete interval du timer à 3000;
Pour le test: 1)placer une autre application au premier plan (mise au premier plan)


2) meme chose mais avec juste SetForeGroundWindow(Handle);
dans le corps de la fonction Devant.-> clignotement dans la barre des taches.
Pour les fonctions utiles voir mon précédent post.

[potili2]

là, c'est moi qui ne comprends plus
ça fonctionne très bien pour la première fenetre avec

Code :

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

Haundle := findwindow(nil, 'mafenetre3');

sous (windows XP)
le problème vient lorsque je veux faire passer la seconde fenetre en premier plan devant celle que je viens d'y mettre.
Bref, ça marche toujours pas.

[potili2]

finalement en utilisant la fonction
activerfenetre de l'unité system du démineur, ça fonctionne...