drag & drop mit VST und Listbox

**made in Germany**

abend,

ich grieg das mit dem drag & drop irgendwie nicht hin.

die markierten strings aus VST (daten.CPath) sollen per drag and drop in eine listbox übertragen werden.
über einen button hab ichs schon geschafft

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  node, selnode: PVirtualNode;

  daten: CTreedata;

  anz, i:integer;

begin

SelNode := VST.GetFirstSelected;

  while SelNode <> nil do

  begin

  daten := CTreedata (VST.GetNodeData(selnode)^);

  Listbox1.Items.Add(CTreedata(daten).CPath);

    SelNode := VST.GetNextSelected(SelNode);

  end;

  end;

wie grieg ich das jetzt über drag & drop zum laufen?

drag & drop mit VST und Listbox

drag & drop mit VST und Listbox

Forumregeln