Drag & Drop zwischen ListBox und TreeView

[Alex_ITA01]

Hallo erstmal,
ich weiß, solche ähnlichen Themen gab es hier schon zu genüge aber ich habe nichts passendes für mein Problem gefunden...
Ich möchte bestimmte Einträge von einer ListBox per Drag & Drop in ein TreeView "verschieben" können.
Also es soll möglich sein, mehrere Einträge in der ListBox zu markieren und dann in einen bestimmten Knoten des TreeViews zu verschieben. Wie man die ListBox und den TreeView füllt mit Werten weiß ich, nur fehlt mir leider der Gedanke, wie ich Drag & Drop zwischen beiden Controls realisiere...
Ich hoffe ihr könnt mir da ein wenig helfen.
MFG Alex

[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