Ordner-Durchsuchen-Komponente

[xZise]

Ich habe mir eine Komponente gebastelt um einen Ordner zu wählen:

Delphi-Quellcode:

unit UDurchsuchen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, JvExControls, JvComponent, JvXPCore, JvXPButtons, ExtCtrls,
  ComCtrls, ShellCtrls;

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;

var
  FDurchsuchen: TFDurchsuchen;

implementation

{$R *.dfm}

function TFDurchsuchen.Execute : Boolean;
begin
  Abort := false;
  inherited ShowModal;
  Result := not Abort;

end;

procedure TFDurchsuchen.JvXPButton2Click(Sender: TObject);
begin
  Abort := true;
  close;
end;

procedure TFDurchsuchen.JvXPButton1Click(Sender: TObject);
begin 
  Path := Directorys.Path;
  close;
end;

function TFDurchsuchen.getPath : TFileName;
begin
  Result := Path;
end;

end.

Nun wollte ich das als Kompoennete einstellen!
Muss ich es dazu nur registieren?

[mkinzler]

Grundsätzlich, ja, obwohl TForm als basisklasse für eine Komponente nicht optimal ist.

[xZise]

Was würdest du den Vorschlagen?

[mkinzler]

Vielleicht nen Panel

[xZise]

Ein Panel mit Systemleiste oben?

[arbu man]

Du machst die eine Komponente vom Type TComponent und dann so was

Delphi-Quellcode:

TDurchsuchenAdapter=class(TComponent)
protected
  form:TFDurchsuchen;
  fpath: string;
public
  function execute: boolean; 
  property path...
end;

das dann mit Register registrieren und fertig :)

[Luckie]

Weiteres Problem: Man muss die Jedis installiert haben, um dein Komponente nutzen zu können. Warum nicht einfach die von Windows schon bereitgestellte API Funktion in eine Klasse kapseln?
http://www.michael-puff.de/Developer...rFolderCls.pas

[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'

[Dax]

Wenn du die beiden Deklarationen vertauschst, gehts wieder.

[mkinzler]

Du könntest auch TFrame als Basisklasse nehmen, und dann die nicht verfügbaren Eigenschaften/Methoden auf die Form (parent) umlenken.