Discussion :

[oiapoque]

Bonjour,

Je ne trouve pas comment tester si un composant TOleContainer est vide ou non

j'ai une liste de composants TOleContaineret je souhaite connaitre le document source de chacun de la facon suivante exemple:

Code :

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

source := (Components[k] as TOleContainer).SourceDoc;

Cependant, il provient une erreur car certains composants sont vides.

merci a toute reponse, piste...

Oiapoque

[Cl@udius]

Salut

Je ne sais pas si mon idée est bonne, mais je vérifirais d'abord si il s'agit d'un TOleContainer.

Code :

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

1
2
3
 
  if (Components[k] is TOleContainer) then
    source := (Components[k] as TOleContainer).SourceDoc;

Comme SourceDoc est un String, si il n'est pas défini il te renverra un chaine vide.

@+

[oiapoque]

je n'ai pas tout détaillé pardon, je verifie bien avant que c'est un TOleContainer.
Pardon pour mon imprecision et merci qd meme de la reponse

[oiapoque]

j'avais mal regardé dans la doc....


Réponse:

Vérifier l'etat du composant via la propriete 'state'


pour info, voici les differents etats:


osEmpty
Il n'y a pas d'objet OLE dans le conteneur.

osLoaded
Il y a un objet OLE dans le conteneur, mais l'application serveur n'est pas en cours d'exécution.

osRunning
Le serveur de l'objet OLE est en cours d'exécution.

osOpen
L'objet OLE est ouvert dans une fenêtre séparée.

osInPlaceActive
L'objet OLE est activé in-situ mais n'a pas encore fusionné ses menus et ses barres d'outils. C'est un état intermédiaire ; la propriété State passe à osUIActive dès que les menus et les barres d'outils ont été fusionnés.

osUIActive
L'objet OLE est activé in-situ et les menus et les barres d'outils ont été fusionnés.