Drag & Drop aus Explorer

[tacter]

Hallo

Ich weis dass es viele Themen zu Drag&Drop hat, aber ich fand keines, welches sich mit meinem Problem befasst.

Ich möchte den Pfad einer Datei, welche ich per Drag&Drop aus dem Explorer in eine CheckListBox ziehe angezeigt haben.

Ich habe mir den Code http://www.bytesandmore.de/rad/cpp/snipp/sc03026.php hier angesehen und ausprobiert. Es funktioniert wunderbar, solange es eine ListBox ist, sobald ich eine CheckListBox verwende, akzeptiert er das File nicht.

Wenn ich

DragAcceptFiles(lboxFiles -> Handle, true);

zu

DragAcceptFiles(Form1->Handle, true);

ändere, geht es aber dann akzeptiert das ganze Formular das File, ich möchte aber dass das File nur über der CheckListBox akzeptiert wird.

Kann mir da jemand helfen?

Danke und freundliche Grüsse

tacter

[Christian Marquardt]

sobald ich eine CheckListBox verwende, akzeptiert er das File nicht.

Die entsprechenden Eigenschaften in der Checklistbox wurden gesetzt....

[Knut Lohse]

Ich habe mir den Code ... http://www.bytesandmore.de/rad/index.htm hier angesehen ...

Dieser Link führt nicht zu einem Code-Snippet...

Aber vielleicht hilft Dir davon etwas weiter: torry.net

Ich hatte mal vor einiger Zeit etwas mit TDragDropPanel gebastelt, das funktionierte auch ganz gut, allerdings musste ich die Liste "von Hand" füllen (Listbox auf dem Panel, Align = alClient).

Gruß Knut

[Freiheit]

Hallo,

Ich möchte den Pfad einer Datei, welche ich per Drag&Drop aus dem Explorer in eine CheckListBox ziehe angezeigt haben.

Am besten leitest du dazu die WndProc-Methode der CheckListBox um, so dass du Nachrichten selbst behandeln kannst. Die Nachricht "WM_DROPFILES" ist dann die gesuchte.

Falls du ein Beispiel suchst, im Quelltext von Qezz solltest du fündig werden.

[tacter]

Danke für die Antworten.

@Christian Marquardt: Was für Eigenschaften meinst du?

@Knut Lohse: Sry, jetzt stimmt der Link.

@Freiheit: Ich werde mir die Source ansehen.

[Knut Lohse]

Hallo,

@Knut Lohse: Sry, jetzt stimmt der Link.

Danke.

Gruß Knut

[tacter]

Ich hab mal dies ausprobiert:
.cpp

void __fastcall THF_List::NewCheckListBoxWP(TMessage &Msg)
{ 
  if (Msg.Msg == WM_DROPFILES) 
  { 
    // grab a handle to the drop structure 
    HDROP HDrop = (HDROP)Msg.WParam; 

    // find the number of files dropped 
    int num_files = DragQueryFile(HDrop, 0xFFFFFFFF, (LPSTR)NULL, NULL); 

    // only accept one file at a time 
    if (num_files != 1) 
    { 
      ShowMessage("Only one file at a time please!"); 
      Msg.Result = 0;
      return;
    } 

    // load the file 
    int NameLength = DragQueryFile(HDrop, 0, NULL, NULL) + 1; 
    char *FileName = new char[NameLength]; 
    DragQueryFile(HDrop, 0, FileName, NameLength); 
    CheckListBox1->Items->Add(FileName);

    // clean up 
    delete [] FileName; 
    DragFinish(HDrop); 

    Msg.Result = 0; 
    return; 
  } 

  // un-subclass the RichEdit 
  if (Msg.Msg == WM_DESTROY) 
    CheckListBox1->WindowProc = OldCheckListBoxWP; 

  OldCheckListBoxWP(Msg); 
} 


void __fastcall THF_List::FormCreate(TObject *Sender)
{
         DragAcceptFiles(CheckListBox1->Handle, true);

         OldCheckListBoxWP = CheckListBox1->WindowProc;
         CheckListBox1->WindowProc = NewCheckListBoxWP;
}

.h

private:	// User declarations
        TWndMethod OldCheckListBoxWP;
        void __fastcall NewCheckListBoxWP(TMessage &Msg);

Doch es geht immer noch nicht.

[Christian Marquardt]

Zugriff auf Nachrichten:

http://www.marquardtnet.info/cecke/q...quicky_55.html

[Freiheit]

Doch es geht immer noch nicht.

Das ist eigenartig, bei mir (BDS2006) funktioniert dein Code.

[tacter]

Danke Freiheit!

Hab die ganze Form nochmals erstellt mit anderem Namen und jetzt gehts.

Wenn ich jetzt 2 CheckListBoxen auf einer Form habe, wie kann ich auswerten, in welche der Boxen das File gedropt wurde?

[Freiheit]

Wenn ich jetzt 2 CheckListBoxen auf einer Form habe, wie kann ich auswerten, in welche der Boxen das File gedropt wurde?

Warum möchtest du das auswerten? Solange du nicht die Nachrichten beider CheckListBoxes über eine WndProc "prügelst", weißt du doch grundsätzlich, über welcher CheckListBox die Datei abgeworfen wurde. Oder?

Eine Lösung wäre also, für beide CheckListBoxes eigene WndProcs zu definieren und dann die Message WM_DROPFILES plus einen Pointer auf die CheckBox an eine Extra-Funktion weiter zu leiten:

void __fastcall TForm1::CheckListBox1_WindowProc(TMessage &Message)
{
if (Message.Msg == WM_DROPFILES)
   DropFilesTo(Message, CheckListBox1);
}
//

void __fastcall TForm1::CheckListBox2_WindowProc(TMessage &Message)
{
if (Message.Msg == WM_DROPFILES)
   DropFilesTo(Message, CheckListBox2);
}

[tacter]

Danke, habs hingekriegt.

Sobald ich

CheckListBox->MultiSelect=true

setze, ist Drag&Drop nicht mehr möglich. Die Files werden gar nicht erst akzeptiert. Kann ich das ändern oder kann man das umgehen?

[Freiheit]

Sobald ich

CheckListBox->MultiSelect=true

setze, ist Drag&Drop nicht mehr möglich. Die Files werden gar nicht erst akzeptiert.

Kann ich so nicht nachvollziehen, bei mir hat MultiSelect keinen Einfluss auf Drag&Drop.

[tacter]

Ich kanns auch nicht nachvollziehen.
Sobald ich MultiSelect auf true setze, kommt das Verboten-Zeichen wenn ich die Files in die Box ziehen will. Hab auch mal ein neues projekt angelegt und es geht immer noch nicht.