IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

Utilisation de la methode inheritsFrom


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    imi
    imi est déconnecté
    Membre averti
    Inscrit en
    Septembre 2004
    Messages
    19
    Détails du profil
    Informations forums :
    Inscription : Septembre 2004
    Messages : 19
    Par défaut Utilisation de la methode inheritsFrom
    Bonjour,

    j'essaie vainement de déterminer si un composant que je passe en paramètre d'une methode dérive de TcustomForm mais je n'y arrive pas ! voici le code que j'utilise:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    var Hwnd : THandle
     
     
    constructor MaClasse.Create(AOwner: TComponent)
    var MyClass : TComponentClass;
     
    begin
      MyClass := AOwner.ClassType;
     
      if MyClass.inheritsFrom(TCustomForm)
        then Hwnd := TCustomForm(AOwner).Handle
      else Hwnd  := INVALID_HANDLE_VALUE
    end;
    si j'execute Classe := MaClasse.Create(SELF) où SELF est de type TForm et que je trace dans débogueur l'éxécution j'obtiens toujours :

    MyClass.inheritsFrom(TCustomForm) à FALSE avec "types incompatibles TClass et Class reference"

    Quelqu'un peut-il m'aider ?

    Merci par avance

  2. #2
    Membre Expert
    Homme Profil pro
    Développeur .Net / Delphi
    Inscrit en
    Juillet 2002
    Messages
    738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Eure (Haute Normandie)

    Informations professionnelles :
    Activité : Développeur .Net / Delphi
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2002
    Messages : 738
    Par défaut
    Bonjour,
    Pour tester la classe d'un objet, tu peux utiliser l'opérateur is :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
      if aOwner is TCustomForm then
       Hwnd := TCustomForm(AOwner).Handle;
      else
       Hwnd := INVALID_HANDLE_VALUE;
    Je pense que ça doit répondre à ton besoin.
    Bon courage.
    eb.

  3. #3
    Expert confirmé
    Avatar de Cl@udius
    Homme Profil pro
    Développeur Web
    Inscrit en
    Février 2006
    Messages
    4 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2006
    Messages : 4 878
    Par défaut
    Salut

    Ce code fonctionne correctement:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    constructor TMaClasse.Create(AOwner: TComponent);
    var
      MyClass : TClass;
    begin
      MyClass := AOwner.ClassType;
      if MyClass.InheritsFrom(TCustomForm)
      then
        Hwnd := TCustomForm(AOwner).Handle
      else
        Hwnd := INVALID_HANDLE_VALUE;
    end;
    @+ Claudius

  4. #4
    imi
    imi est déconnecté
    Membre averti
    Inscrit en
    Septembre 2004
    Messages
    19
    Détails du profil
    Informations forums :
    Inscription : Septembre 2004
    Messages : 19
    Par défaut Précision
    Merci pour la célérité de vos réponses mais les deux solutions que vous me proposez ne semblent pas répondre à ma question.

    La première solution : elle va tester que la classe de AOwner est TCustomForm or AOwner peut être un objet d'une classe dérivée la classe TForm descendante de TCustomForm

    la seconde solution: elle renvoie systématiquement false

    Globalement mon idée est la suivante: je veux créer un formulaire (nommons le F1 de classe TF1 = class(TForm) ) à partir d'un formulaire initial (nommons FInit de classe TFinit = class(TForm) ). Pour ce faire j'appelle :

    F1 := TF1.Create(FInit) et dans le constructeur de TF1 je m'assure que AOwner est de type formulaire uniquement.

    Avez-vous une solution ?

    Merci de votre aide

  5. #5
    Membre émérite
    Profil pro
    Inscrit en
    Février 2006
    Messages
    624
    Détails du profil
    Informations personnelles :
    Âge : 50
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 624
    Par défaut
    et comme cela :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     if (aOwner is TFinit) then
     with (aowner as TFinit).....

  6. #6
    Membre Expert
    Homme Profil pro
    Développeur .Net / Delphi
    Inscrit en
    Juillet 2002
    Messages
    738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Eure (Haute Normandie)

    Informations professionnelles :
    Activité : Développeur .Net / Delphi
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2002
    Messages : 738
    Par défaut
    Je comprends mais retournera True si aOwner est une instance classe TCustomForm ou d'une classe héritée de TCustomForm (ce qui est le cas de ta classe TFinit) donc ma solution me semble correcte... Ou alors, j'ai pas compris le problème ...

  7. #7
    Membre émérite
    Profil pro
    Inscrit en
    Février 2006
    Messages
    624
    Détails du profil
    Informations personnelles :
    Âge : 50
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 624
    Par défaut
    je m'assure que AOwner est de type formulaire uniquement.

    Il ne veut que des types "formulaire" dérivés de TFinit.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. utilisation de la methode random
    Par jiji83 dans le forum Langage
    Réponses: 2
    Dernier message: 21/02/2007, 02h25
  2. Réponses: 1
    Dernier message: 01/02/2007, 11h57
  3. [debutant] Utiliser String et methodes
    Par jcaspar dans le forum Langage
    Réponses: 1
    Dernier message: 21/12/2006, 11h07
  4. [POO] Utilisation d'une methode
    Par chtom dans le forum Langage
    Réponses: 2
    Dernier message: 21/11/2006, 13h47
  5. [NumberFormat] : utilisation de la methode parse()
    Par richard_34b dans le forum Collection et Stream
    Réponses: 11
    Dernier message: 20/10/2004, 15h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo