Donner focus à application avec OLE

**bib34690** · 13/10/2006, 19h27

Bonjour,

J'ai ecrit en DELPHI 1 appli qui pilote Word par OLE avec :

Code :

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

1
2
3
WordId := CreateOleObject('Word.Application');
WordId.visible:=True;  
DocId:=WordId.Documents.Open(DotName);

Le problème, c'est que si Word est déjà ouvert mais n'est pas au 1er plan, il n'y passe pas et est donc masqué derrière mon appli.
j'ai essayé en vain :

Code :

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

1
2
3
WordId.ActiveWindow.Activate;
WordId.ActiveWindow.SetFocus;
DocId.Activate...

rien ne marche...j'ai passé 4 heures à chercher, j'ai trouvé la question, mais jamais la réponse...
merci pour votre aide.

**Eric Boisvert** · 13/10/2006, 21h02

j'uste une idée comme ca...
t'a essayé de faire

Code :

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

1
2
3
 
WordId.visible:=False; 
WordId.visible:=True;

**bib34690** · 17/10/2006, 09h20

Hélas oui, et ça ne marche pas : la fenêtre est visible mais au 2nd plan. Si la 1ère occupe pratiquement tout l'écran on ne voit rien...

**PadawanDuDelphi** · 17/10/2006, 09h39

Bonjour,

un truc qui va surement pas te plaire pour des tas de raisons, mais au pire des cas tu peux toujours fermer word puis le réouvrir...

@+.

**bib34690** · 17/10/2006, 10h49

Bonjour PadawanduDelphi,
oui mais j'ai le problème parce qu'il était déjà ouvert, donc avec des documents ouverts...
donc fermer tous les doc ouverts, les sauver ou pas, fermer word, les réouvrir...
c'est pas possible juste pour un focus...