Discussion :

[phplive]

Bsr,

Voilà j'aimerais savoir comment on peut détecter dans un objet dériver de TObject si on est en mode conception dans l'EDI qd cet objet est créé ou en mode exécution.

Merci

@+
Php

[Laurent Dardenne]

Salut,

http://sjrd.developpez.com/delphi/de...mentation#LVII

[sjrd]

Dans TComponent, il existe la propriété ComponentState, qui contient csDesigning si on est en mode conception.

Donc, si tu es dans une méthode d'un objet dérivant de TComponent (par exemple de ta fiche), il suffit de faire :

Code :

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

1
2
3
4
if csDesigning in ComponentState then
  // en mode conception
else
  // en mode exécution

Sinon, tu peux utiliser la propriété de Form1 :

Code :

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

if csDesigning in Form1.ComponentState then

Si tu n'as pas accès à un composant, il te suffit d'en créer un :

Code :

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

1
2
3
4
5
6
7
with TComponent.Create(nil) do
try
  if csDesigning in ComponentState then
    /// ...
finally
  Free;
end;

Edit : grillé par Laurent avec un de mes propres tutos