Entwickler-Ecke :: Thema anzeigen - Ordner per Drag&Drop auf die form ziehen & Pfad in E

NetProg - Mo 13.01.03 11:33
Titel: Ordner per Drag&Drop auf die form ziehen & Pfad in E

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: :roll:

derDoc - So 19.01.03 12:20

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.
http://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:
http://www.swissdelphicenter.ch/de/showcode.php?id=493

Ich hoffe ich konnte dir helfen.

Viel Spaß

derDoc

Udontknow - Di 29.04.03 16:21

@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:

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:

Quelltext

1:
2:
3:

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

Cu, :)
Udontknow

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!