Discussion :

[flombard]

Voila mon probleme :

J'ai créer une appli de test avec juste une Forme (Form1)
J'ai associé un serveur OLE dans cet Exe avec une fonction "Activate".
Cette fonction "activate" doit mettre la forme en premier plan.
Donc voici cette fonction :

Code :

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

1
2
3
4
5
6
 
procedure TTest.Activate; 
begin 
  Form1.SetFocus; 
  Application.BringToFront; 
end;

La forme est bien activée (le bouton de la barre des taches clignote) mais la fenetre ne passe jamais devant.

[Philippe Gormand]

Bonjour.

Code :

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

1
2
3
4
5
6
procedure TTest.Activate; 
begin 
Form1.SetFocus; 
Application.BringToFront; 
end;

Essais ceci.

Code :

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

1
2
3
4
5
6
procedure TTest.Activate; 
begin 
Form1.SetFocus; 
Form1.BringToFront; 
end;

A+