Listbox ==> Drag Drop Listview?

[Bernd29bln]

Hi Leute, :hi:

wie bekomme ich es hin das ich von einer listbox dateien in eine listview schieben kann .

gruss bernd

[Sharky]

Hai Bernd,

welche Einträge aus der Listbox möchtest Du den in der ListView haben? Alle oder nur den der markiert ist?

[Bernd29bln]

hi sharky,

na nur die makierten .

gruss bernd

[Sharky]

Hai,

so sollte es gehen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  spalte : TListColumn;
begin
  ListView1.Columns.Clear;  // Vorhanden Spalten löschen
  ListView1.ViewStyle := vsReport;
  spalte :=  ListView1.Columns.Add;  // Eine Spalte erzeugen
  spalte.Caption := 'Spalte 1';  // Titel der Spalte
  spalte.Width := -2;  // Breite auf die gesamtbreite des ListView stellen
  ListBox1.MultiSelect := True;
end;

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if (Sender is TListBox) then
  begin
    Accept := True;
  end;
end;

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  eintrag : TListItem;
  ndx     : Integer;
begin
  if Source is TListBox then
  begin
    for ndx := 0 to Pred (ListBox1.Count) do  // Alle Einträge durchlaufen
    begin
      if (ListBox1.Selected[ndx]) then // Wenn Zeile markiert dann.
      begin
        eintrag := ListView1.Items.Add;  // Neue Zeile erzeugen
        eintrag.Caption := ListBox1.Items[ndx]; // Text zuweisen
      end;
    end;
  end;
end;

[Bernd29bln]

Hi Sharky,

super danke probier ich mal gleich aus ich hab bestimmt noch ein OSTEREI übrig,

gruss bernd

[Sharky]

:shock:

Habe noch etwas vergessen :oops:
Das hier muss noch in das FormCreate (oder halt von Hand einstellen):

Delphi-Quellcode:

ListBox1.DragMode := dmAutomatic;
ListView1.DragMode := dmManual;

[Bernd29bln]

:hello:

funktioniert einwandfrei vielen dank :cheers:

gruss bernd