Ordner-Durchsuchen-Komponente

[xZise]

Okay das mit den Jedis kann ich rausnehmen!

Nur jetzt meckert er rum:

Delphi-Quellcode:

type
  TDurchsuchen = class(TComponent)
  private
    Formular : TFDurchsuchen;
  public
    constructor Create;
    destructor Destroy;
    function Execute : Boolean;
    function getPath : TFileName;
  end;

type
  TFDurchsuchen = class(TForm)
    Directorys: TShellTreeView;
    Panel1: TPanel;
    Panel2: TPanel;
    JvXPButton2: TJvXPButton;
    JvXPButton1: TJvXPButton;
    procedure JvXPButton2Click(Sender: TObject);
    procedure JvXPButton1Click(Sender: TObject);
  private
    Abort : Boolean;
    Path : TFileName;
 { public
    function Execute : Boolean;
    function getPath : TFileName;}
  end;

Zitat:

[Error] UDurchsuchen.pas(13): Undeclared identifier: 'TFDurchsuchen'