Ordner per Drag&Drop auf die form ziehen & Pfad in E

NetProg · Beiträge: 23

Wie kann ich es machen das ich in meinem fertigen Programm einfach einen Ordner per Drag&Drop auf das Fenster ziehe und ich in einem Edit-feld den kompletten Pfad zu dem Ordner erhalte ?

Wer kann helfen, Danke schonmal vorweg ....... :roll:

derDoc · Beiträge: 623 Win Vista Prof D2007 Prof

Also generell gibt es zwei Möglichkeiten, die beide funktionieren sollten.
1. Eine fremde Komponente für Drag&Drop, mit deren Hilfe du an den Pfad kommst.

Such mal bei der Url nach etwas was dir hilft.
www.torry.net/draganddrop.htm

2. Selbst schreiben einer Unit die das für dich macht.

Schau dir mal das Tutorial hier an, ich hoffe es hilft dir:
www.swissdelphicente.../showcode.php?id=493

Ich hoffe ich konnte dir helfen.

Viel Spaß

derDoc

_________________
MfG derDoc
There are only 10 types of people: those who understand binary and those who don't.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Oder einfach mal in unsere FAQ schauen :-)

...vom Explorer per Drag&Drop Dateien empfangen?

Gruß
TINO

Udontknow · Beiträge: 2596 Win7 D2006 WIN32, .NET (C#)

@Tino:

In dem o.g. Beitrag wird der Konstruktor Create des Formulars übersteuert. Es wird aber kein Inherited aufgerufen.

Nachtrag:

Ich glaube, ich habe einen weiteren Fehler entdeckt:

markieren

Quelltext

1:
2:
3:

For Idx := 0 To FileCount -1 Do 
    Begin 
      Size := DragQueryFile (aMsg.WParam, 0, nil, 0) + 1;

Hier greifst du immer (für jedes File) die Grösse des ersten Files ab.
So müsste es sein:

markieren

Quelltext

1:
2:
3:

For Idx := 0 To FileCount -1 Do 
    Begin 
      Size := DragQueryFile (aMsg.WParam, Idx, nil, 0) + 1;

Cu,

Udontknow

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Danke für den Hinweise. Hab die Änderung eingefügt!

Gruß
Tino

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme