Delphi - unité 'Classes' inclus mais ne peut pas trouver la fonction 'FindComponent'

Question

J'ai créé une classe simple et j'ai eu un petit problème: Je veux juste utiliser la méthode "findComponent 'de l'unité de classe J'ai inclus l'unité de classes, mais Delphi ne peut pas trouver la méthode FindComponent. Pourquoi? Je suis sûr que ce problème très simple ...

unit U_Test; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, QStdCtrls; 

type 
    TTest = Class 
    public 
    // 
    private 
    procedure test(); 
    End; 

implementation 

procedure TTest.test(); 
begin 
    FindControl('test'); // FindControl is found in unit controls 
    FindComponent('test'); // FindComponent is NOT found, but unit classes is included 
end; 

end. 

Answer 1

Comme SimaWB a dit FindComponent est une méthode dans la classe TComponent.

Si vous souhaitez accéder à cette méthode, héritez de la classe TComponent.

TTest = Class(TComponent) 
    public 
    // 
    private 
    procedure test(); 
    End; 

Answer 2

Parce que FindComponent est la fonction de la classe TComponent. Mais votre classe TTest base sur TObject par défaut