Drag & Drop zwischen ListBox und TreeView

[Alex_ITA01]

Okay ich habs schon, sorry für den Thread...

Lösung:

Delphi-Quellcode:

procedure TMainForm.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  i : Integer;
begin
  for i := 0 to (Source as TListBox).SelCount - 1 do
    MyTreeNode2 := TreeView1.Items.Add(MyTreeNode1,(Source as TListBox).Items.Strings[i]);
end;

procedure TMainForm.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
                                      State: TDragState; var Accept: Boolean);
begin
  Accept := True;
end;

Thema kann geschlossen werden.
MFG Alex