AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Ordner-Durchsuchen-Komponente

Ein Thema von xZise · begonnen am 26. Jul 2006 · letzter Beitrag vom 26. Jul 2006
Antwort Antwort
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#1

Ordner-Durchsuchen-Komponente

  Alt 26. Jul 2006, 19:31
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?
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: Ordner-Durchsuchen-Komponente

  Alt 26. Jul 2006, 19:32
Grundsätzlich, ja, obwohl TForm als basisklasse für eine Komponente nicht optimal ist.
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#3

Re: Ordner-Durchsuchen-Komponente

  Alt 26. Jul 2006, 19:34
Was würdest du den Vorschlagen?
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Ordner-Durchsuchen-Komponente

  Alt 26. Jul 2006, 19:36
Vielleicht nen Panel
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#5

Re: Ordner-Durchsuchen-Komponente

  Alt 26. Jul 2006, 19:38
Ein Panel mit Systemleiste oben?
Miniaturansicht angehängter Grafiken
durchsuchen_166.jpg  
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Benutzerbild von arbu man
arbu man

Registriert seit: 3. Nov 2004
Ort: Krefeld
1.108 Beiträge
 
Delphi 7 Professional
 
#6

Re: Ordner-Durchsuchen-Komponente

  Alt 26. Jul 2006, 19:40
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
Björn
>> http://bsnx.net <<
Virtual DP Stammtisch v1.0"iw" am 19.09.2007 - ich war dabei!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Ordner-Durchsuchen-Komponente

  Alt 26. Jul 2006, 19:41
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
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#8

Re: Ordner-Durchsuchen-Komponente

  Alt 26. Jul 2006, 19:47
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'
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Dax
(Gast)

n/a Beiträge
 
#9

Re: Ordner-Durchsuchen-Komponente

  Alt 26. Jul 2006, 19:51
Wenn du die beiden Deklarationen vertauschst, gehts wieder.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#10

Re: Ordner-Durchsuchen-Komponente

  Alt 26. Jul 2006, 19:56
Du könntest auch TFrame als Basisklasse nehmen, und dann die nicht verfügbaren Eigenschaften/Methoden auf die Form (parent) umlenken.
Markus Kinzler
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz