Wieder einmal Drag & Drop

[mlspider]

Hallo,

ein alt bekanntes Problem. Ich möchte mit einer FileListBox und einer ListBox Drag & Drop realisieren. Soweit funktioniert es auch. Leider wird beim ziehen und fallen lassen einer Datei, der gesamte Inhalt des Ordners abgelegt.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.OnDragOver := ListBox1DragOver;
  Listbox1.Dragmode := dmAutomatic;
  ListBox1.MultiSelect := true;
  FileListbox1.Dragmode := dmAutomatic;
  FileListBox1.MultiSelect := true;
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
 accept := (Source is TFileListBox) and (sender<>Source);
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var i: Integer
begin
  if Source is TFileListBox then
    begin
  i:=(Source as TFileListBox).ItemIndex;
  ListBox1.Items.Add((Source as TFileListBox).Items[i]);
end;
end;

end.

Könnte es sein, dass hier noch irgendwas fehlt?

PS: Das Ziehen mehrerer Dateien gleichzeitig ist ein muß.

[jim_raynor]

Du musst natürlich dein i auch verwenden. Zum Beispiel so:

Delphi-Quellcode:

ListBox1.Items.Add((Source as TFileListBox).Items[i];

Und bei mehreren musst du halt eine Schleife über die Items in Source machen und über die Eigenschaft Selected abfragen, ob der Eintrag ausgewählt ist. Wenn ja. Der anderen Listbox hinzufügen.

[mlspider]

Jetzt ist die Verwirrung komplett.

[jim_raynor]

Zitat:

Zitat von mlspider

Jetzt ist die Verwirrung komplett.

Dein Problem ist doch, dass durch ListBox1.Items:=(Source as TFileListBox).Items; der Komplette Inhalt der ListBox übertragen wird. Um nur die ausgewählten Einträge zu übernehmen musst du also ein Schleife über die Einträge machen.

Delphi-Quellcode:

for Dummy:=0 to (Source as TFileListBox).Items.Count-1 do
begin
  if (Source as TFileListBox).Items.Selected[Dummy] then
    ListBox1.Items.Add( Source as TFileListBox).Items[Dummy]);
end;

In der Hoffnung, dich nicht noch mehr zu verwirren ;)

[mlspider]

Danke, hat geklappt.