Listbox ==> Drag Drop Listview?

[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;