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:
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 :
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;
MyClass.inheritsFrom(TCustomForm) à FALSE avec "types incompatibles TClass et Class reference"
Quelqu'un peut-il m'aider ?
Merci par avance
Partager