Discussion :

[tintinux]

Bonjour

Je dois déboguer un vieux programme, et me trouve devant le symptôme suivant, au moins sous Windows 7 avec Delphi 2010 :

Il y a Form1 et Form2 qui sont créées automatiquement.

Dans Form1, il y a d'abord création d'une instance Excel OLE, et début de remplissage de WorkSheets sans problème. Ensuite, il y a un Form2.ShowModal

La Form2 s'affiche correctement, "modalement" mais ne semble pas avoir le focus.
Form2 a un ActiveControl mais il n'a pas le curseur, si on tape directement, rien ne se passe.
Si on clique et tape du texte dans un champ de saisie, ça marche mais il y a ensuite un plantage quand on continue à utiliser l'instance Excel.
Enfin, si on clique dans le titre de la fenêtre d'abord, puis dans le champ de saisie et qu'on tape du texte, tout est parfaitement normal.

Auriez-vous une idée de ce qui pourrait a priori provoquer ce comportement anormal ?

Je n'ai pas trouvé de propriété exotique dans la Form.

Ne me dites pas qu'il faudrait créer l'instance Excel après affichage de Form2. C'est ce que je ferais de préférence, mais là il est impossible de restructurer ce programme qui est très mal écrit.

Merci pour vos lumières !

[ShaiLeTroll]

Créer une instance d'Excel ne va-t-il pas justement prendre le focus à la place de ton appli !
Tu pourras juste jouer sur UserInteractive de Excel

[tintinux]

Oui c'est vrai, mais j'ai oublié de préciser que, juste après sa création, l'instance Excel est rendue invisible.

Avec cette précaution, dans un petit programme éprouvette, je n'ai pas de problème. Form2 contient un TEdit qui est ActiveControl, j'ai le focus sans problème sur lui.

Code :

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

1
2
3
4
5
6
 
  Xl:=CreateOLEObject('Excel.Application');
  Xl.Visible := false;
  Xl.WorkBooks.add;
  Xl.DisplayAlerts:= false;
  Form2.ShowModal ;

Mais avec le programme usine-à-gaz que je dois corriger, le bug existe bien, je n'ai pas le focus. Sauf erreur, l'instance reste aussi tout le temps invisible.

Il doit y avoir autre chose...

[tintinux]

Un indice...

Si j'ajoute ShowMessage(' hello ! ') dans Form1, juste avant Form2.ShowModal, il n'y a pas de problème, j'ai mon focus.

De même, si je mets un point d'arrêt.