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